Program exponential;
var F1,F2:text;
    A:array[1..100] of byte;
   aux, n,i:byte;


Function EXPON(j:byte):longint;
var i,e:integer;
Begin
e:=1;
for i:=1 to j do
e:=e*j;
expon:=e;
end;

   
Function lg(X:byte):longint;
var S,i:integer;
begin
S:=0;
for i:=1 to x do
S:=S+EXPON(i);
lg:=S mod 10;
end;




Begin
ASSIGN(F1,'Cifra.in');
RESET(F1);
Read(F1,n);
for i:=1 to n do
readln(F1,A[i]);
close(F1);

ASSIGN(F2,'Cifra.out');
REWRITE(F2);
for i:=1 to n do
   Begin
   aux:=A[i];
   Writeln(F2,lg(aux));
   End;
Close(F2);
end.