с клавиатуры вводится последовательность чисел до тех пор пока не будет введено число 0 найти количество чисел из введенных кратных 5
Answers & Comments
Dimarik708
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.
3 votes Thanks 2
Dimarik708
var a, b : integer; begin b:=0; readln(a); while a<> 0 do begin if a mod 5 = 0 then b:=b+1; readln(a); end; writeln('Кол-во чисел кратных 5: ', b); end.
Answers & Comments
begin
b:=0;
readln(a);
while a<> 0 do
begin
if a mod 5 = 0 then b:=b+1;
readln(a);
end;
writeln('Кол-во чисел кратных 5: ', b);
end.