Question

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

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.