Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Количество вводимых чисел вводится с клавиатуры.
Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Количество вводимых чисел вводится с клавиатуры.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы