Cod sursa(job #964261)

Utilizator niculojnicu loj niculoj Data 20 iunie 2013 15:09:27
Problema Factorial Scor 5
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.36 kb
Raporteaza aceasta sursa 
program factorial;
var
f1,f2:text;
z,i,v:integer;
c:string;
n,p,check:longint;
begin
assign(f1,'fact.in');
reset(f1);
readln(f1,p);

c:='1';
for v:=1 to p do
c:=c+'0';

val(c,check,z);

n:=1;
i:=1;
repeat
inc(i);
n:=n*i;
until (n mod check = 0) and (n>check);

assign(f2,'fact.out');
rewrite(f2);
writeln(f2,i);
close(f1);
close(f2);

end.