Pagini recente » Diferente pentru utilizator/radugheo intre reviziile 134 si 95 | Rezultatele filtrării | Borderou de evaluare (job #176071) | Profil flory_me | Cod sursa (job #262437)
Cod sursa(job #262437)
{factorial}
var aux,p,i,zerouri:0..100000000;
f:text;
begin
assign(f,'fact.in');
reset(f);
read(f,p);
close (f);
assign(f,'fact.out');
rewrite(f);
if p=0 then begin write(f,'1'); close (f); halt; end;
i:=1;
while zerouri<p do
begin
i:=i*5;
aux:=i;
while aux mod 5=0 do
begin
aux:=aux div 5;
zerouri:=zerouri+1;
end;
end;
if zerouri>p then
write (f,-1)
else
write (f,i);
close (f);
end.