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

Merser2212 Merser2212    2   02.06.2019 13:40    0

Ответы
ferid9098 ferid9098  01.10.2020 17:11
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика