Cod sursa(job #110741)

Utilizator alexrusuRusu Alexandru alexrusu Data 27 noiembrie 2007 18:21:35
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.49 kb
program cifra;
var s,t,a:int64;
    n:array [1..30000] of int64;
    f,g:text;
    j,i,k:longint;
begin
  assign(f,'cifra.in');
  assign(g,'cifra.out');
  reset(f);
  rewrite(g);
  readln(f,t);
  for i:=1 to t do
    readln(f,n[i]);
  for i:=1 to n[i] do
    begin
      s:=0;
      for j:=0 to i do
        begin
          a:=j;
          for k:=1 to j-1 do
            a:=a*j;
          s:=s+a;
        end;
      writeln(g,s mod 10);
    end;
  close(f);
  close(g);
end.