Cod sursa(job #686290)

Utilizator florea3Florea Anastasia florea3 Data 21 februarie 2012 16:00:06
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.38 kb
var n,s,p,t,ti,i,j:longint;
f1,f2:text;
begin
  assign(f1,'cifra.in');
  reset(f1);
  assign(f2,'cifra.out');
  rewrite(f2);
  readln(f1,t);
  for ti:=1 to t do
  begin
  read(f1,n);
  s:=0;
  for i:=1 to n do
  begin
   p:=1;
   for j:=1 to i do
   p:=(p*i) mod 10;
   s:=(s+p) mod 10;
  end;
  writeln(f2,s mod 10);
  end;
close(f1);
close(f2);
end.