Cod sursa(job #1199186)
Utilizator | Data | 18 iunie 2014 15:29:16 | |
---|---|---|---|
Problema | Factorial | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.17 kb |
var n,nr,i:longint;
begin
assign(input,'fact.in');
reset(input);
read (n) ;
close(input);
assign(output,'fact.out');
rewrite(output);
close(output);
end.