几道PASCAL的题，用PASCAL循环语句解，急！！！

用(ord(true)=0 ord(false)=1)或者(ord(true)=1 ord(false)=0))我有点忘了
每个属性比如排名,就用数字代替
for循环求解
7:给你一个比较简单的思路
l:=(l*1989)div 1000;//取最后三位,这样就可以直接用longint算了
还有7的意思是m+n的最小值还是什么??

前面几道题用pascal循环做反而要难，还不如推理……
MS这是第二次看见这个题了……

1
begin
writeln('鄱阳湖 洞庭湖 太湖 洪泽湖');
end.
思路:百度一下(orz)……
2
begin
writeln('d b e f g a c');
end.
思路:先把f在星期四排好，a,c要连着两天，把b在星期二和三中一试就出来了
3
begin
writeln(39);
end.
思路:不能切开！再逆推
4
writeln('铁')
思路:三种金属都假设一遍
5
11 11
13 31
17 71
37 73
79 97
程序如下：
var
i,j:longint;
function su(n:longint):boolean;
begin
su:=true;
for k:=2 to round(sqrt(n)) do
if n mod k=0 then exit(false);
end;

begin
for i:=1 to 9 do
for j:=i to 9 do
begin
if (su(10*i+j))and(su(10*j+i)) then
writeln(10*i+j,' ',10*j+i);
end;
end.
6
运行一下就得答案(最朴素的方法)
var
i,j,k:longint;
begin
for i:=1 to 100 do
for j:=1 to 50 do
for k:=1 to 20 do
if i+2*j+5*k=100 then writeln(i,' ',j,' ',k)
end.

我来回答下第3道题目，刚完成，从后往前推。设b的初值为11，x为第四天没卖之前还剩的金鱼数，公式x-（x/5+1/5）=b，得出x=(5*b+1) div 4;因为需要整数。所以用div。在往前推到第3天，循环四次。
程序如下，调试通过。
var x,b,i:integer;
begin
i:=4;
b:=11;
while i>=1 do
begin
x:=(5*b+1) div 4;
b:=x;
dec(i);
end;
writeln('The total: ',x);
readln;
end.