fork download
copy 
  1. program maxfact (input,output);
  2.     var N , i, j : integer;
  3. function fact (m : integer) : integer;
  4. begin
  5.    if (m=0) or (m=1) then fact:=1
  6.      else fact:=fact(m-1)*m;
  7. end;
  8.  
  9. begin
  10.     read(N);
  11.     i:=0;
  12.     if N=0 then writeln('1')
  13.        else
  14.         begin 
  15.           while fact(i)<=N do i:=i+1;
  16.           j:=i-1;
  17.           writeln(j)
  18.         end;
  19. end.
Success #stdin #stdout 0.01s 4112KB
comments (?)
stdin
copy 
123
stdout
copy 
5
https://ideone.com/jQ3hn
language:
Pascal (gpc 20070904)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!