求教！ - pascal吧

level 2

____泛青楼主

本人小白请大神看看有什么问题！我提交只得到半数的分程序是可以运行的结果也对的不知道问题在哪里
program Project1;
var
i,n,s:integer;
begin
readln(n);
for i:=1 to n do s:=s+i;
write(s);
end.

2014年04月17日 12点04分 1

level 2

____泛青楼主

题目的问题附上“ 计算1+2+3+4......+n之和”

2014年04月17日 12点04分 2

level 13

integer可能会爆，换longint
s未清零
可能输出末位要有换行符，改成writeln

2014年04月17日 12点04分 3

____泛青

好的我去试试啊谢谢了 [真棒]

2014年04月19日 00点04分

level 14

改一下
program Project1;
var
n:longint;s:int64;
begin
readln(n);
s:=int64(int64(int64(1+n)*n) div 2);
write(s);
end.
再超时就没办法了~

2014年04月19日 00点04分 4

____泛青

好的可以了累加器耗时太长了应该是那样的谢谢啊 [太开心]

大神你学了多久了啊

2014年04月19日 00点04分