Предмет: Информатика,
автор: so6etova
Написать программу pascal: найти сумму всех чисел с клавиатуры, кратных заданному числу a.
Ответы
Автор ответа:
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.
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.
Похожие вопросы
Предмет: Русский язык,
автор: vovatolmacev570
Предмет: Русский язык,
автор: nastaburmakova566
Предмет: Литература,
автор: bsbdbdhsh
Предмет: Алгебра,
автор: yagoda97
Предмет: Физика,
автор: wglvy