[求助]用Delphi编一个程序
用Delphi编一个程序 打印出 a
b a
c b a
b c b a
这样一个图形
是
a
b a
c b a
b c b a
还是
a
b a
c b a
d c b a
?
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var i,j:integer;
s:string;
begin
s:='';
for i:=1 to 10 do
begin
s:=chr(ord('a')+i-1)+' '+s;
for j:=10 downto i-1 do
write(' ');
writeln(s);
end;
readln(s);
{ TODO -oUser -cConsole Main : Insert code here }
end.