Gesunik
6 год назад
Написать программу которая определяет сумму чисел концом которых является 0(На языке Паскаль )
ОТВЕТЫ
Vabyupval
Jul 10, 2019
-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.
-Repeat
-readln(i);
-If (i mod 3=0)or(i mod 100=0) then s:=s+i;
-until i=0;
-writeln(Сумма =,s);
-readln
-end.
270
Смежные вопросы:
