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.