Cod sursa(job #686252)

Utilizator florea3Florea Anastasia florea3 Data 21 februarie 2012 15:44:51
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.3 kb
Raporteaza aceasta sursa 
var i,j,n,s,p:integer;
f1,f2:text;
begin
  assign(f1,'cifra.in');
  reset(f1);
  assign(f2,'cifra.out');
  rewrite(f2);
  read(f1,n);
  s:=0;
  for i:=1 to n do
  begin
   p:=1;
   for j:=1 to i do
   p:=p*i;
   s:=s+p;
  end;
  write(f2,s mod 10);
close(f1);
close(f2);
end.