Ответ:
var s,x: integer;
begin
s:=0;
x:=1;
while (x<=100) do
s:=s+x;
x:=x+1;
end;
writeln(s);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
var s,x: integer;
begin
s:=0;
x:=1;
while (x<=100) do
begin
s:=s+x;
x:=x+1;
end;
writeln(s);
end.