free pascal的编程拜托了

发布网友发布时间：2024-12-03 06:44

共3个回答

热心网友时间：2024-12-12 07:30

var i,j,k:integer;
begin
for i:=0 to 8 do begin
for j:=1 to abs(4-i) do write(' ');
for k:=1 to 2*(5-abs(4-i))-1 do write(i div 2);
for j:=1 to abs(4-i) do write(' ');
writeln;
end;
readln;
end.

var i,j,k:integer;
begin
for i:=1 to 9 do begin
for j:=1 to abs(5-i) do write(' ');
for k:=1 to 2*(5-abs(5-i))-1 do write(5-abs(5-i)-abs(5-abs(5-i)-k));
for j:=1 to abs(5-i) do write(' ');
writeln;
end;
readln;
end.
亲测通过。
——————————————————————————————————————————
诚挚为你解答——来自广东广雅中学知识团队

热心网友时间：2024-12-12 07:31

var a.b.c:integer;
begin
for a:=0 to 8 do begin
for b:=1 to abs(4-i) do write(' ');
for c:=1 to 2*(5-abs(4-i))-1 do write(i div 2);
for b:=1 to abs(4-i) do write(' ');
writeln;
end;
readln;
end.

热心网友时间：2024-12-12 07:31

program;
begin
writeln(‘0’：9)；
writeln（‘000’：6）；
writeln（‘11111’：7）；
writeln（‘1111111’：8）；
writeln（‘222222222’）；
writeln（‘2222222’：8）；
writeln（‘33333’：7）；
writeln（‘333’：6）；
writeln（‘4’：5）；
end.