Cod sursa(job #2394927)
Utilizator | Data | 2 aprilie 2019 09:16:05 | |
---|---|---|---|
Problema | Factorial | Scor | 5 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.53 kb |
{Se da un numar intreg P.
Sa se gaseasca cel mai mic numar natural strict pozitiv N pentru care
N! are exact P cifre de 0 la sfarsit.
Se stie ca N! = 1 * 2 * 3 * .... * (N - 1) * N.
}
program factorial;
var f:textfile;
p, fact:longint;
begin
assign(f, 'fact.in');
reset(f);
read(f, p);
close(f);
//readln(p);
if p<5 then fact:=p*5
else if p>5 then fact:=p*5-5
else fact:=-1;
assign(f, 'fact.out');
rewrite(f);
write(f, fact);
close(f);
{writeln(fact);
readln }
end.