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

NaightMar NaightMar    3   29.07.2019 06:10    0

Ответы
MaxAd13 MaxAd13  19.04.2020 08:34
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика