Question

С клавиатуры вводится последовательность чисел,оканчивающаяся нулём.Определить количество чисел,кратных 5,во введенной последовательности.

Answer 1

var i,k,x:integer;

begin

i:=0;

x:=1;

while x<>0 do

begin

read(x);

if (x mod 5=0)and(x<>0) then k:=k+1;

end;

writeln('Количество чисел кратных 5= ',k);

end.