Question

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

Answer 1

program n;

Var

 i,s: Integer;

BEGIN

s:=0;

For i:=-50 to 100 do

s:=s+i;

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

Readln

END.