有几道pascal练习题，急！！！

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的最小公倍数。

5 输出：
1 2 3 4

6. 输出：
i=10
t=10
s=65

7 输出：
k=0

8 输出:
max=57

9
求两个自然数m，n的最小公倍数。
Var m，n，i，s：integer；
Begin
readln（m，n）；
i：=1；
s：=m*i；
while___s mod n<>0____do
begin
______inc(i)______;
s：=m*i；
end;
writeln(s);
end.

10
输入一个自然数，求这个自然数的所有约数之和。
Var x ,y,s:integer;
begin
read(x);
s:=0;
for y:=_____1 to x______do
if _____x mod y=0______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
_______sl:=sl+i________;
_______s:=s+sl________;
End;
Writeln(‘s=’,s)
End.

答案仅供参考。

1. 1.000 2.000 3.000 4.000
2. i=10 t=10 s=56
3. k=0

pascal练习题 几道简单的Pascal练习题（急）！！！！！ pascal程序练习题 PASCAL初级练习题： 急！C语言程序设计练习题 浮力练习题 急！！！！！！ 解决初一英语练习题 急 求一份练习题~急 急求英语练习题 初三化学练习题,急