Найдите сумму чисел от -50 до 100 pascal abc (8класс)

Alina22511 Alina22511    3   03.10.2019 10:40    0

Ответы
Михона Михона  21.08.2020 21:25

program n;

Var

 i,s: Integer;

BEGIN

s:=0;

For i:=-50 to 100 do

s:=s+i;

Writeln('Сумма чисел от -51 до 100 = ',s);

Readln

END.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика