问几个关于free pascal的题目,（完成几道是几道）

问几个关于free pascal的题目,（完成几道是几道）
1、输出如下图形.
2、编写一程序,验证角谷猜想.所谓的角谷猜想是："对于任意大于1的自然数n,若n为奇数,则将n变为3*n+1,否则将n变为n的一半.经过若干次这样的变换,一定会使n变为1."
3、有一堆100多个的零件,若三个三个数,剩二个；若五个五个数,剩三个；若七个七个数,剩五个.请你编一个程序计算出这堆零件至少是多少个?
4、一辆快车和一辆慢车开往同一地点,快车票价为18元,慢车票价为13.5元,共售出400张,共计5940元,求快车票和慢车票各多少张?.
5、求出能被5整除的所有四位数的和.
6、在下面式子中的二个□内填入一个合适的同样的数字,使等式成立.
□3*6528=3□*8256
7、有一个三位数,它的各位数字之和的11倍恰好等于自身,请编程求出这个三位数.
8、在自然数中,如果一个三位数等于自身各位数字之立方和,则这个三位数就称为是水仙花数.如:153=13+53+33,所以153是一个水仙花数.求所有的水仙花数.
9、编程序打印出下列图案：
平行四边形 等腰三解形 菱形
*
10、编程打印出如下图案：
1
222
33333
4444444
555555555
11、有三种明信片:第一种每套一张,售价2元；第二种每套一张,售价4元； 第三种每套9张,售价2元.现用100元钱要买100张明信片,要求每种明信片至少要买一套,问三种明信片应各买几套?请输出全部购买方案.
12、某人想把一元钱换成伍分、贰分、壹分这样的零钱,在这三种零钱中每种零钱都至少各有一个的情况下,共有多少种兑换方案.并打出这些方案.
13、(1)s=12+22+32……+1002,
(2) 求S= 1-1/2 +1/3-1/4+1/5-1/6+ ……（求前N项的和)
14、 输出100 以内的全部素数,要求每行显示5 个.
15、某登山队员第一天登上山峰高度的一半又24米; 第二天登上余下高度的一半又24米；每天均如此.到第七天,距山顶还剩91米.求此山峰的高度?
16、百钱买百鸡：今有钱100元,要买100只鸡,公鸡3元一只,母鸡1元一只,小鸡1元3只,若公鸡、母鸡和小鸡都至少要买1只,请编程求出恰好用完100元钱的所有的买鸡方案.
17、小球从100高处自由落下,着地后又弹回高度的一半再落下.求第20次着地时,小球共通过多少路程?
18、猴子吃桃问题.猴子第一天摘下若干个桃子,当即吃了一半,还不过瘾,又多吃了一个.第二天早上又将剩下的桃子吃了一半,又多吃了一个.以后每天早上都吃了前一天剩下的一半零一个.到第十天早上想再吃时,只剩下一个桃子了.求第一天共摘了多少桃子.
19、A、B、C三人进入决赛,赛前A说：“B和C得第二,我得第一”；B说：“我进入前两名,丙得第三名”；C说：“A不是第二,B不是第一”.比赛产生了一、二、三名,比赛结果显示：获得第一的选手全说对了,获得第二的选手说对了一句,获得第三的选手全说错了.编程求出A、B、C三名选手的名次.
20、赵、钱、孙、李、周五人围着一张圆桌吃饭.饭后,周回忆说：“吃饭时,赵坐在钱旁边,钱的左边是孙或李”；李回忆说：“钱坐在孙左边,我挨着孙坐”.结果他们一句也没有说对.请问,他们在怎样坐的?

1:未知图形
2:var
a,n:longint;
begin
readln(n);
while n1 do
begin
inc(a);
if n mod 20 then
n:=3*n+1
else n:=n div 2;
end;
writeln(a);
end.
3:var
a:longint;
begin
for a:=100 to 200 do
begin
if (a mod 3=2)and(a mod 5=3)and(a mod 7=5)then
begin
writeln(a);
break;
end;
end;
end.
4:var
a,b:longint;
s:real;
begin
s:=400*18;
a:=400;
b:=0;
while s5940 do
begin
s:=s-18+13.5;
dec(a);
inc(b);
end;
writeln(a,' ',b);
end.
5:var
s,a:longint;
begin
for a:=1000 to 9999 do
begin
if a mod 5=0 then
s:=s+a;
end;
writeln(s);
end.
7:var
s,a,b,c:longint;
begin
for s:=100 to 999 do
begin
a:=s mod 10;
b:=s div 10 mod 10;
c:=s div 100;
if (a+b+c)*11=s then
writeln(s);
end;
end.
8:var
s,a,b,c:longint;
begin
for s:=100 to 999 do
begin
a:=s mod 10;
b:=s div 10 mod 10;
c:=s div 100;
if a*a*a+b*b*b+c*c*c=s then
writeln(s);
end;
end.
13.(1):var
s:longint;
a:longint;
begin
a:=2;
while a1002 do
begin
a:=a+10;
s:=s+a;
end;
writeln(s);
end.
13.(2)[结果保留了10位小数:var
s:real;
n,a:longint;
begin
readln(n);
a:=1;
while an do
begin
inc(a);
if a mod 2=0 then
s:=s+1/a
else
s:=s-1/a;
end;
writeln(1-s:0:10);
end.
14:var
p:boolean;
a,b,c:longint;
begin
p:=true;
for a:=2 to 100 do
begin
for b:=2 to trunc(sqrt(a))do
begin
if a mod b=0 then
p:=false;
end;
if p then
begin
inc(c);
write(a,' ');
end;
if c=5 then
begin
writeln;
c:=0;
end;
p:=true;
end;
end.