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

Question

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

Comments

составит блок схему и програму

---

по программе не сможешь блок схему составить?

---

попробую

---

напиши, если будут вопросы)

---

ок

Answer 1

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.