Cod sursa(job #291132)

Utilizator andrici_cezarAndrici Cezar andrici_cezar Data 29 martie 2009 14:04:35
Problema Factorial Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
var n,i,nr0,tmp: longint;
	f,g:text;
begin
assign(f,'fact.in');reset(f);
assign(g,'fact.out');rewrite(g);
	read(f,n);
	i := 5;
	while (i<=n) do
	begin
		nr0 := 0;
		tmp := i;
		while (tmp > 0) do
		begin
			nr0 := nr0 + tmp div 5;
			tmp := tmp div 5;
		end;
		if (nr0 = n)then
			writeln(g,i)
		else writeln(g,-1);	
	end;		
end.