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

Question

Информатика

Ала

20 сентября, 08:08

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

+3

Ответы (1)

Знаете ответ на вопрос?

Евстафия · Answer 1

Var numb, count:integer;

begin

readln (numb) ;

while numb0 do

begin

if (numb mod 5 = 0) then

count:=count+1;

readln (numb) ;

end;

writeln (count) ;

end.