Cod sursa(job #1482084)

Utilizator dianadenisa25Truta Diana-Denisa dianadenisa25 Data 5 septembrie 2015 22:55:11
Problema Factorial Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.28 kb
Raporteaza aceasta sursa 
var n,p,prod,c2,c5:longint;
begin
 write('p=');readln(p);
 prod:=1;
 n:=1;
 c2:=0;
 c5:=0;
 while (c2<>p) or (c5<>p) do begin
       if prod mod 2=0 then c2:=c2+1;
       if prod mod 5=0 then c5:=c5+1;
       n:=n+1;
       prod:=prod*n;
 end;
 write(n);
 readln;
end.