Cod sursa(job #1855767)
| Utilizator |  Buliga Nicu Nicubuliga |
Data | 23 ianuarie 2017 22:04:57 |
|---|---|---|---|
| Problema | Factorial | Scor | 5 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.19 kb |
var i,n,p:longint;f1,f2:text;
begin
assign(f1,'fact.in');
assign(f2,'fact.out');
reset(f1);rewrite(f2);
read(f1,n);
p:=1;
for i:=1 to n do p:=p*i;
writeln(f2,p);
close(f1);
close(f2);
end.