Дана бесконечная последовательность определит количество и сумму чисел этих последовательности который делится на 5 окончание последовательности равно 0
Дана бесконечная последовательность определит количество и сумму чисел этих последовательности который делится на 5 окончание последовательности равно 0
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы