5
Var
a,b,i:integer;
begin
a:=1; b:=4;
for i:=a to b do
begin
a:=3; b:=5;
write(i : 3);
end;
end.
输出:
6.
Var i,s,t:integer;
Begin
t:=0; s:=0;
for i:=1 to 10 do
begin
t:=t+1
s:=s+t+1
end;
writeln(‘i=’,i);
writeln(‘t=’,t);
writeln(‘s=’,s); 输出:
7
Var
i,k:integer;
begin
i:=10;
k:=0;
while (i>10)and(i<30)do
begin
k:=k+I;
i:=i+2;
end;
writeln(‘k=’,k)
end.
输出:
8
Var n,m, x,y:integer;
Begin
readln(n);
read(x);
m:=1;
repeat
read(y);
if y>x then x:=y;
m:=m+1;
until m=n
write(‘max=’,x)
end.
输入:8
12 5 23 17 41 29 57 3
输出
9
求两个自然数m,n的最小公倍数。
Var m,n,i,s:integer;
Begin
readln(m,n);
i:=1;
s:=m*i;
while________do
begin
____________;
s:=m*i;
end;
writeln(s);
end.
10
输入一个自然数,求这个自然数的所有约数之和。
Var x ,y,s:integer;
begin
read(x);
s:=0;
for y:=___________do
if ___________then
s:=s+y
write(s);
end.
11
求s=1+(1+2)+(1+2+3)+……+(1+2+3+…+n)。
Var s,i,n,sl:integer;
begin
read(n);
s:=0
sl:=0;
for i:=1 to n do
begin
_______________;
_______________;
End;
Writeln(‘s=’,s)
End.