Question

用pascal 循环语句做 编程计算4、5、7、9、11的累加和 快啊！

Answer 1

var i,n:longint;
begin
n:=4;
for i:=2 to 5 do n:=n+2*i+1;
writeln(n);
end.

Answer 2

cons a:array[1..5] of longint=(4,5,7,9,11);
var m,t:longint;
begin
for t:=1 to 5 do m:=m+a[t];
write(m);
end.

Answer 3

var
i,n,:longint;
begin
n:=4;
for i:=1 to 4 do
n:=n+2*i;
writeln(n);
end.

Answer 4

var
i,j,s:integer;
begin
j:=2;s:=0;
for i:=1 to 5 do
begin
if i=2 then j:=j+1 else j:=j+2;
s:=s+j;
end;
writeln(s);
end.