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.

Answer 2

Спасибо!!!

Answer 3

i:=0; - лишний оператор, нигде i не используется больше. Зато k не инициализировано. Это выдаст глупый ответ, к примеру, во Free Pascal.