UC知道pascal语言~
来源：百度知道 编辑：UC知道 时间：2024/05/15 10:01:30
Description
输入若干个正整数，求出它们的和。
Input
只有一行有若干个正整数，数与数之间用一个空格隔开，以-1为结束标记
（每一正整数不超过1 000 000 ，整数个数不超过10000个）
Output
只有一行且只有一个正整数，输入的若干个正整数之和
Sample Input
1 3 5 -1
Sample Output
9
输入若干个正整数，求出它们的和。
Input
只有一行有若干个正整数，数与数之间用一个空格隔开，以-1为结束标记
（每一正整数不超过1 000 000 ，整数个数不超过10000个）
Output
只有一行且只有一个正整数，输入的若干个正整数之和
Sample Input
1 3 5 -1
Sample Output
9
program xxx(input,output);
var
s:qword;
i:longint;
begin
read(i);
while i<>-1 do begin
s:=s+i;
read(i);
end;
write(s);
end.
var sum:qword;a,b,c:longint;
begin
read(a);
while a<>-1 do
begin sum:=sum+a;read(a);end;
writeln(sum);
end.
绝对方便