第一行输出N-1个*以及1个$，第二行输出N-2个*以及2个$
......
得知将i不断循环，终点是n，则输出n-i个*以及在n-i+1的位置直至n的位置输出n-(n-i+1)个$
程序如下：





















var
        n,i,j,k:integer;
begin
        read(n);
        for i:=1 to n do
        begin

                        for k:=1 to n-i do
                                write('* ');
                        for k:=n-i+1 to n do
                                write('$ ');
                writeln;
        end;
end.