Question

如何用pascal的for语句打出下面图形？ 急用~！！！

*********$
*******$$$
*****$$$$$
***$$$$$$$
*$$$$$$$$$

Answer 1

var
c,d,n:integer;
begin
readln(n);
for c:=1 to n do begin
for d:=1 to 2*(n+1-c)-1 do write('*');
for d:=1 to 2*c-1 do write('$');
writeln;
end;
end.

Answer 2

var
i,j,k,s:integer;
begin
s:=1;
for i:=9 downto 1 do
begin
for j:= 1 to i do
write(' ');
for k:=1 to s do
write('$');
s:=s+2;
end;
end.