pascal问题
pascal问题
日期：2011-04-06 20:33:01 人气：1
想了想...
1--
var
n,m:integer;
function f(n,m:integer):longint;
var
i,s:longint;{因为总和可能很大 所以用longint}
begin
for i:=n to m do inc(s,i); {inc(i,x)的意思是i:=i+x}
f:=s;{值赋给函数f}
end;
begin
readln(n,m);
write(f(n,m));{直接调用函数f 得到结果}
end.