free pascal问题

Question

问题共有三题，我是新手，所以请大家教教。
1.输入一个自然数n（n<10),比如输入4，要求打印右图（使用for语句实现，注意对齐）。
1
2 2
3 3
4 4

2.求斐波那契数列，从第几个数开始大于100（分别用while和repeat语句实现）。
3.小球从100米的高度自由下落，着陆后又弹回高度的一半再下落，经过多少次着陆后，小球弹起的高度才会低于0.5米？（分别用while和repeat语句实现）。
30分钟内出来，再加20分。

Answer 1

1、
var k,i,j,n:longint;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to n-i do write(' ');
write(i);
for j:= 1 to （(i-1)*2-1） do write(' ');
if i=1 then writeln
else writeln(i);
end;
end.

2（1）、
var a,b,c,t:longint;
begin
a:=1;
b:=1;
t:=2;
while (c<=100) do
begin
c:=a+b;
a:=b;
b:=c;
inc(t);
end;
writeln(t);
end.

2（2）、
var a,b,c,t:longint;
begin
a:=1;
b:=1;
t:=2;
repeat
c:=a+b;
a:=b;
b:=c;
inc(t);
until c>100;
writeln(t);
end.

3、
var sum,n,tmp:real;
begin
readln(n);
tmp:=n;
while (tmp>=n*0.001) do begi
sum:=sum+tmp;
tmp:=tmp*0.7;
sum:=sum+tmp;
end;
sum:=sum-tmp;
writeln(sum:0:2);
end.
望楼主采纳

Answer 2

var k,i,j,n:longint;
begin
readln(n);
for i:=1 to n do begin
for j:=1 to n-i do write(' ');
write(i);
k:=(i-1)*2-1;
for j:=1 to k do write(' ');
if i=1 then writeln
else writeln(i);
end;
end.

var a,b,c,t:longint;
begin
a:=1;
b:=1;
t:=2;
while (c<=100) do begin
c:=a+b;
a:=b;
b:=c;
inc(t);
end;
writeln(t);
end.

var a,b,c,t:longint;
begin
a:=1;
b:=1;
t:=2;
repeat
c:=a+b;
a:=b;
b:=c;
inc(t);
until c>100;
writeln(t);
end.

var sum,n,tmp:real;
begin
readln(n);
tmp:=n;
while (tmp>=n*0.001) do begi
sum:=sum+tmp;
tmp:=tmp*0.7;
sum:=sum+tmp;
end;
sum:=sum-tmp;
writeln(sum:0:2);
end.