编程题（free pascal）：求总和。

2025-04-05 18:16:35

推荐回答（4个）

回答1：

var x,s:int64;

begin
s:=0;
repeat
read(x);
inc(s,x);
until x=-1;
writeln(s+1);
end.

回答2：

var
ans,x:int64;
begin

x:=0;
ans:=0;

while x<>-1 do
begin
read(x);
ans:=ans+x;
end;

writeln(ans+1);

end.

回答3：

program sum;
var i,j,s:longint;
a:array[1..10000]of longint;
begin
while a[i]=-1 do
begin
i:=i+1;
read(a[i]);
end;
for j:=1 to i-1 do
s:=s+a[j];
writeln(s);
end.

回答4：

program skyline;
var x,s:int64;
begin
s:=0;read（x);
while x<>-1 do
begin
inc(s,x);
read(x);
end;
writeln(s);
end.