Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.