Написать программу pascal: найти сумму всех чисел с клавиатуры, кратных заданному числу a.

Question

Информатика

Викентий

23 сентября, 10:34

Написать программу pascal: найти сумму всех чисел с клавиатуры, кратных заданному числу a.

+1

Ответы (1)

Знаете ответ на вопрос?

Аникитка · Answer 1

Program gt;

var n, a, i, s, q:integer;

begin

read (n) ;

read (a) ;

s:=0;

for i:=1 to n do

begin

read (q) ;

if (q mod a=0) then s:=s+q;

end;

writeln (s) ;

end.