Напишите программу, которая в последовательности - вопрос №18226730 от LeylaL11 27.10.2020 11:41

Question

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

LeylaL11 · Answer

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.Объяснение:...