Cod sursa(job #360202)

Utilizator tiger_10Dutescu Radu Alin tiger_10 Data 30 octombrie 2009 14:03:38
Problema Factorial Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
var p,k,i:longint;
        f,g:text;
begin
        assign(f,'fact.in');
        reset(f);
        read(f,p);
        close(f);

        i:=0;
        k:=1;
        repeat
                inc(i);
                k:=k*i;
        until k mod 100=0;

        assign(g,'fact.out');
        rewrite(g);
        write(i);
        close(g);
end.