Cod sursa(job #97105)
Utilizator | 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.