Cod sursa(job #97105)

Utilizator Madalina_555ene madalina Madalina_555 Data 5 noiembrie 2007 12:47:26
Problema Factorial Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.16 kb
var m,nr,a:longint;
begin
     writeln('dati nr de zerouri');
     readln(m);
     a:=m div 5;
     m:=m-a;
     nr:=m*5;
     writeln('nr zecimal este ',nr);
end.