for 编程序

program exp；
var
i:integer;
s:longint;
begin
for i:=1 to 50 do
s:=s+i*2;
writeln(s);
end.

int sum=0;
for(int i = 1; i <= 50; i++)
{
sum +=i*2;
}

sum的值就是你想要的了

雯子你个贱人～～～我对你真是无话可说了……不过我都懒的做了……书上不是有差不多的么？……好像没有……

有正确答案别忘了发给我哦！！（知道你最好了……）

var
i,s:integer;
begin
for i:=1 to 50 do
s:=s+i*2;
writeln(s);
end.