搜狗做题网pascal 语言求和
来源：学生作业帮 编辑：搜狗做题网作业帮 分类：综合作业 时间：2024/05/18 10:59:11
pascal 语言求和
Description
求n个数的和
输入描述 Input Description
第一行一个整数n
接下来一行n个整数
输出描述 Output Description
所有数的和
样例输入 Sample Input
4
1 2 3 4
样例输出 Sample Output
10
数据范围及提示 Data Size & Hint
n
Description
求n个数的和
输入描述 Input Description
第一行一个整数n
接下来一行n个整数
输出描述 Output Description
所有数的和
样例输入 Sample Input
4
1 2 3 4
样例输出 Sample Output
10
数据范围及提示 Data Size & Hint
n
var n,i,x,sum:longint;
begin
readln(n);
sum:=0;
for i:=1 to n do
begin
read(x);
inc(sum,x);
end;
writeln(sum);
end.
再问： 谢谢，对的，在帮忙写一个，行吗？ 题目描述 给出两个浮点数，请你判断这两个浮点数是否相等 输入描述 输入仅一行，包含两个浮点数 输出描述 输出仅一行，如果相等则输出yes，否则输出no。 样例输入 2.980000001 2.9800000000001 样例输出 yes 数据范围及提示 我们一般认为两个浮点数相等，当且当他们之间的误差不超过1e-8。
再答： var x,y:double; begin readln(x,y); if abs(x-y)
begin
readln(n);
sum:=0;
for i:=1 to n do
begin
read(x);
inc(sum,x);
end;
writeln(sum);
end.
再问： 谢谢，对的，在帮忙写一个，行吗？ 题目描述 给出两个浮点数，请你判断这两个浮点数是否相等 输入描述 输入仅一行，包含两个浮点数 输出描述 输出仅一行，如果相等则输出yes，否则输出no。 样例输入 2.980000001 2.9800000000001 样例输出 yes 数据范围及提示 我们一般认为两个浮点数相等，当且当他们之间的误差不超过1e-8。
再答： var x,y:double; begin readln(x,y); if abs(x-y)