С клавиатуры вводится последовательность чисел до тех пор пока не будет введено число 0 найти количество чисел из введенных кратных 5

Question

Информатика

Памфилий

29 мая, 20:43

С клавиатуры вводится последовательность чисел до тех пор пока не будет введено число 0 найти количество чисел из введенных кратных 5

+2

Ответы (1)

Знаете ответ на вопрос?

Машуха · Answer 1

Var a, b : integer; beginb:=0; readln (a) ; while a 0 dobeginif a mod 5 = 0 then b:=b+1; readln (a) ; end; writeln ('Кол-во чисел кратных 5: ', b) ; end.