编程题(free pascal):求总和.输入:只有一行有若干个正整数,数与数之间用一个空格隔开,以-1为结束标记 (每一正整数不超过1 000 000 ,整数个数不超过10000个)输出:只有一行且只有一个正

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/04 02:56:23
编程题(free pascal):求总和.输入:只有一行有若干个正整数,数与数之间用一个空格隔开,以-1为结束标记 (每一正整数不超过1 000 000 ,整数个数不超过10000个)输出:只有一行且只有一个正

编程题(free pascal):求总和.输入:只有一行有若干个正整数,数与数之间用一个空格隔开,以-1为结束标记 (每一正整数不超过1 000 000 ,整数个数不超过10000个)输出:只有一行且只有一个正
编程题(free pascal):求总和.
输入:只有一行有若干个正整数,数与数之间用一个空格隔开,以-1为结束标记
(每一正整数不超过1 000 000 ,整数个数不超过10000个)
输出:只有一行且只有一个正整数,输入的若干个正整数之和
例如:
输入:1 3 5 -1
输出:9

编程题(free pascal):求总和.输入:只有一行有若干个正整数,数与数之间用一个空格隔开,以-1为结束标记 (每一正整数不超过1 000 000 ,整数个数不超过10000个)输出:只有一行且只有一个正
var x,s:int64;
begin
s:=0;
repeat
read(x);
inc(s,x);
until x=-1;
writeln(s+1);
end.

pascal语言编程问题(free pascal求1—N中的素数的个数.(1 编程题(free pascal):求总和.输入:只有一行有若干个正整数,数与数之间用一个空格隔开,以-1为结束标记 (每一正整数不超过1 000 000 ,整数个数不超过10000个)输出:只有一行且只有一个正 用free pascal编程:输入两个数,求他们的最大公因数和最小公倍数 pascal编程给出一个n,求前n个奇数的总和 输入 一行,一个整数n 输出 一行,表示总和 free pascal 求最大公约数与最小公倍数 FREE PASCAL,输入两个数,求最小公倍数 free pascal 求最大公约数与最小公倍数 Free pascal 求连续数字的平方和Description 编程求1平方+2平方+...+n平方 Input 输入一行,只有一个整数n(1 free pascal编程题求解答(警察局抓了A 、B、C、D四名偷窃嫌疑犯,其中有一个是小偷.审问A说:“我……)警察局抓了A 、B、C、D四名偷窃嫌疑犯,其中有一个是小偷.审问A说:“我不是小偷.”B 急求free pascal错误表本人急需要free pascal错误表,一定是要带中文的,所用的free pascal版本为1.0.6,一定要是free pascal,而不是turbo pascal或者其他的 free pascal常见语句 求几道 初学 free pascal free pascal 黑洞6174 pascal编程求1+3+5+...+n一定要是自己是过的,要用pascal! 读入n个数,求第偶数个数的总和,及求出第奇数个数总和的平均数(四舍五入,保留两位小数).求一pascal程序 pascal编程求1+2+3+..+n的值求1+2+3+..+n的值 输入 一个整数n 输出 一个整数,表示1~n这n个数的总和 猴子吃枣 free pascal 语言free pascal 要用while语句编程求猴子吃枣问题:猴子摘了一堆枣N个,第一天吃了一半,还嫌不过瘾,又多吃了一个:第二天又吃了剩下的一半零一个:以后每天如此,到第十 编程输入一个自然数x,求这个自然数的所有约数(包括1和x本身)之和 pascal语言