Предмет: Информатика, автор: so6etova

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

Ответы

Автор ответа: kage1998
0
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.
Похожие вопросы