Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Количество вводимых чисел вводится с клавиатуры.
Ответы
Ответ дал:
0
var c,b,v,r:integer;
begin
readln(c);
for b:=1 to c do
begin
readln(r);
If r mod 4 =0 then v:=v+1;
end;
writeln(v);
end.
begin
readln(c);
for b:=1 to c do
begin
readln(r);
If r mod 4 =0 then v:=v+1;
end;
writeln(v);
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад