Cod sursa(job #1961)

Utilizator Marinescu_DanyelMarinescu George Marinescu_Danyel Data 15 decembrie 2006 15:21:16
Problema Factorial Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
Program Factorial;
var f,g:text;
    p,n,nrp,x,y:integer;
Begin
 assign(f,'fact.in');
 reset(f);
 read(f,p);
 close(f);
 x:=5;
 nrp:=0;
While nrp<p do
 Begin
 x:=x+5;
 y:=x;
 End;
While (y mod 5=0) do
  Begin
  nrp:=nrp+1;
  y:=y div 5;
  End;
If nrp=p then
 n:=nrp;
assign(g,'fact.out');
rewrite(g);
writeln(g,n);
close(g);
End.