program n;
Var
i,s: Integer;
BEGIN
s:=0;
For i:=-50 to 100 do
s:=s+i;
Writeln('Сумма чисел от -51 до 100 = ',s);
Readln
END.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program n;
Var
i,s: Integer;
BEGIN
s:=0;
For i:=-50 to 100 do
s:=s+i;
Writeln('Сумма чисел от -51 до 100 = ',s);
Readln
END.