Cod sursa(job #502910)

Utilizator vendettaSalajan Razvan vendetta Data 20 noiembrie 2010 19:44:12
Problema Ridicare la putere in timp logaritmic Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.23 kb
Raporteaza aceasta sursa 
USES MATH;
VAR
    F,G:TEXT;
    p,n,x:longint;
begin
    assign(f,'T.in');reset(f);
    assign(g,'T.out');rewrite(g);
    readln(f,n);
    readln(f,p);
    x:=trunc(p*log10(n)+1);
    write(g,x);
    CLOSE(F);CLOSE(G);
end.