ILSMATH - Đếm số giai thừa !

Tác giả: ladpro98

Ngôn ngữ: Pascal

program ilsmath;
const   ln10=ln(10);
var     n,i,d:longint;
        s:extended;
        res:array[1..12345] of longint;

begin
        readln(n);
        s:=0;
        i:=0;
        while s<n do
        begin

                if s>=(n-1) then
                begin
                        inc(d);
                        res[d]:=i;
                end;
                inc(i);
                s:=s+ln(i)/ln10;
        end;
        if d=0 then
        begin
                write('NO');
                exit;
        end;
        writeln(d);
        for i:=1 to d do
        writeln(res[i]);
end.

Download