Написать программу которая определяет сумму чисел концом которых является 0(** языке...

Question

Написать программу которая определяет сумму чисел концом которых является 0(На языке Паскаль )

Comments

сколько чисел должно быть?

---

не указано

Answer 1

-ClrScr;
-Repeat
-readln(i);
-If (i mod 3=0)or(i mod 100=0) then s:=s+i;
-until i=0;
-writeln('Сумма =',s);
-readln
-end.