编程题,求1+2+3+4+5+6+7+8+9+10的和
2个回答
推荐于2018-03-07
展开全部
var
n:longint;
function fun(m:longint):longint;
var
i:longint;
begin
fun:=0;
for i:=1 to m do
inc(fun,i);
end;
begin
readln(n);
writeln(fun(n));
end.
次pascal程序可供N<0=1000之间的总和,或者更大。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询