Cod sursa(job #6750)
Utilizator | Data | 20 ianuarie 2007 20:34:48 | |
---|---|---|---|
Problema | Factorial | Scor | 10 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.48 kb |
program fact;
{$APPTYPE CONSOLE}
uses
SysUtils;
var n2,n5,nn,i,p,n,aux:longint;
fin,fout:text;
{*---------MAIN-----------------*}
begin
assign(fin,'fact.in');
assign(fout,'fact.out');
reset(fin);
rewrite(fout);
readln(fin,p);
n:=5;
if p > 9 then
begin
aux:=p div 10;
for i:=1 to aux do
n:=n+40;
end;
if p mod 10 > 0 then for i:=1 to p mod 10-1 do
n:=n+5;
writeln(fout,n);
close(fout);
end.