kulttrop
?>

Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 5 программа получает вход в последовательности всегда имеется число кратное 5 количество чисел не превышает 1000 введенные числа не превышают 30000 программа должна вывести 1 число количество чисел кратных 5 пример работы программы входные данные выходные данные 4 3 10 8 15 20

Информатика

Ответы

алексей-Ветошкин

var b,m,c,i:integer;

begin

readln(b);

m:=0;

readln(c);

for i:=2 to b do begin

if c mod 4=0 then m:=m+1;

readln(c);

end;

writeln(m);

end.

Объяснение:

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 5 программа получает вход в последовательности всегда имеется число кратное 5 количество чисел не превышает 1000 введенные числа не превышают 30000 программа должна вывести 1 число количество чисел кратных 5 пример работы программы входные данные выходные данные 4 3 10 8 15 20
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

info292
gamolml
rinan2013
Ушакова1902
shakovaea
krutikovas
Romanovna-yana
pronikov90
Николаевич1033
sirenashop25
Щуплова Александр
fucksyara
tanyaandreeva728
abuley
Zhilinoe134