Cod sursa(job #74786)

Utilizator al3csutzuSirbu Alexandru al3csutzu Data 28 iulie 2007 11:29:19
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.41 kb
program cifre;
var f,g:text;
k,teste,i,j,n,t:int64;
sol:byte;
begin
  assign(f,'cifra.in'); assign(g,'cifra.out');
  reset(f); rewrite(g);
  read(f,teste);
  for t:=1 to teste do
  begin
    read(f,n);
    sol:=0;
    for i:=1 to n do
    begin
      k:=1;
      for j:=1 to i do
      k:=k*i;
      sol:=(sol+(k mod 10)) mod 10;
    end;
    writeln(g,sol);
  end;

  close(f); close(g);
end.