搜搜做题作业网编程题（free pascal）：求总和.
来源：学生作业帮 编辑：搜搜做题作业网作业帮 分类：综合作业 时间：2024/07/05 07:10:10
编程题（free pascal）：求总和.
输入：只有一行有若干个正整数,数与数之间用一个空格隔开,以-1为结束标记
（每一正整数不超过1 000 000 ,整数个数不超过10000个）
输出：只有一行且只有一个正整数,输入的若干个正整数之和
例如：
输入：1 3 5 -1
输出：9
输入：只有一行有若干个正整数,数与数之间用一个空格隔开,以-1为结束标记
（每一正整数不超过1 000 000 ,整数个数不超过10000个）
输出：只有一行且只有一个正整数,输入的若干个正整数之和
例如：
输入：1 3 5 -1
输出：9
var x,s:int64;
begin
s:=0;
repeat
read(x);
inc(s,x);
until x=-1;
writeln(s+1);
end.
begin
s:=0;
repeat
read(x);
inc(s,x);
until x=-1;
writeln(s+1);
end.