дана бесконечная последовательность определит количество и сумму чисел этих последовательности который делится на 5 окончание последовательности равно 0
Answers & Comments
Mepkypuu
Var numb,count:integer; begin readln(numb); while numb<>0 do begin if (numb mod 5 = 0) then count:=count+1; readln(numb); end; writeln(count); end.
Answers & Comments
begin
readln(numb);
while numb<>0 do
begin
if (numb mod 5 = 0) then
count:=count+1;
readln(numb);
end;
writeln(count);
end.