Cod sursa(job #6750)

Utilizator nod_softwareBudisteanu Ionut Alexandru nod_software 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.