[SGU]107. 987654321 problem

Analysis

    第一个想法是枚举，然后发现1到9位数中满足这样条件的只有8个……然后就很easy了

Accepted Code

var
    n:longint;
begin
    readln(n);
    if n<=8 then
        writeln(0)
    else
        if n=9 then
            writeln(8)
        else
        begin
            write(72);
            dec(n,10);
            while n>0 do
            begin
                dec(n);
                write(0);
            end;
            writeln;
        end;
end.