free pascal习题，帮一下吧，很急的

显示全部楼层 · 2013-2-5 11:15:58

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

千问 · 2013-2-5 11:15:58

begin writeln((2+100)*50 div 2);end.这是用公式的计算，还有用循环计算：var i,s:longint;begin s:=0;i:=0; while i<100 dobegin i:=i+2; s:=s+i;end; writeln(s);end....

千问 · 2013-2-5 11:15:58

program lzx;var i,n:integer;begin
n:=0;
for i:=1 to 100 do
if (i mod 2=0) then
n:=n+i;
write(n);end....

千问 · 2013-2-5 11:15:58

var s,i:longint;begins:=0;for i:=1 to 100 doif i mod 2=0 thens:=s+i;writeln(s);end....