Question

Free Pascal的循环语句

用循环语句的三种格式完成以下题目
1+2+3+…+n
1^2+3^2+5^2+…+N^2 (N<99且为奇数)

Answer 1

1：
(1)var
n,s,i:longint;
for i:=1 to n do
s:=s+i;
write(s(即答案));
(2)var
n,s,i:longint;
while i<n do
begin
i:=i+1;
s:=s+i;
end;
write(s(即答案));
(3)var
n,s,i:longint;
begin
repeat
inc(i);
s:=s+i;
until i=n;
2.
(1)var
n,s,i:longint;
for i:=1 to (n div 2) do
s:=s+(i*2-1)*(i*2-1);
write(s(即答案));
(2)var
n,s,i:longint;
begin
while i<n do
begin
i:=i+2;
s:=s+i*i;
end;
write(s(即答案));
(3)var
n,s,i:longint;
beign
repeat
inc(i,2);
s:=s+i*i;
until i=n;
注：n都要read.
祝LZ可以做出、理解(100％上机通过了） 加点分 3Q

Answer 2

一：(ans为答案)
1.ans:=0;
for i:=1 to n do inc(ans,i);
2.i:=0; ans:=0;
while i<n do
begin
inc(i);
inc(ans,i);
end;
3.i:=0; ans:=0;
repeat
inc(i);
inc(ans,i);
until i=n;

二：(ans为答案)
1.ans:=0;
for i:=1 to 44 do ans:=ans+(2*i-1)*(2*i-1);
2.i:=1; ans:=0;
while i<99 do
begin
ans:=ans+i*i;
i:=i+2;
end;
3.i:=1; ans:=0;
repeat
ans:=ans+i*i;
i:=i+2;
until i>=99;

希望你能看懂~

Answer 3

不会

Answer 4

1.1.
ans := 0;
For i:=1 To n Do ans := ans + i;
1.2.
ans := 0;
i = 0;
While i <> n Do Begin
Inc(i);
ans := ans + i;
End;
1.3.
ans := 0;
i := 0;
Repeat
Inc(i);
ans := ans + i;
Until i = n;
2.1
ans := 0;
For i:=1 To n Do
If i Mod 2 = 1 Then ans := ans + i * i;
2.2
ans := 0;
i := -1;
While i <> n Do Begin
i := i + 2;
ans := ans + i * i;
End;
2.3
ans := 0;
i := -1;
Repeat
i := i + 2;
ans := ans + i * i;
Until i = n;
(ans即为所求，定成int64)