language: Pascal (gpc) (gpc 20070904)
date: 99 days 22 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

Program exer(input,output);
var N,i,p:integer;
    f:boolean;
begin
    readln(N);
    i:=1;
    p:=1;
    f:=false;
    while (not f) do
          begin
          p:=i*p;
          if (p>N) then
                 begin
                 f:=true;
                 i:=i-1;
                 end
          else if (p=N) then
                 f:=true
          else
               i:=i+1;
           end;
    writeln(i);
end.