用delphi 求1+2+3+...+N的和
用delphi 求1+2+3+...+N的和

呵呵~~~~~帮忙写下``~~~



[解决办法]

Delphi(Pascal) code

function(eof:integer):integer;varsum:integeri:intege;beginsum:=0;for i:=1 to eof dobeginsum:=sum+i;end;result:=sum;end;