Cod sursa(job #230008)
| Utilizator |  Little Lady lady |
Data | 12 decembrie 2008 17:24:02 |
|---|---|---|---|
| Problema | Factorial | Scor | 5 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.24 kb |
var p,n,i:integer;
begin
assign(input,'fact.in');reset(input);
assign(output,'fact.out');rewrite(output);
readln(p);
n:=0;
for i:=1 to p do
inc(n,5);
if p>=10 then n:=n - 5*(p div 10);
write(n);
close(input);close(output);
end.
