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