Cod sursa(job #102362)

Utilizator crisy_girlpop cristina crisy_girl Data 14 noiembrie 2007 12:23:02
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.45 kb
var
  i ,j ,n ,p ,s ,t ,l: longint;
  {fi,fo:text;  }
begin
	{assign(fi,'cifra.in');reset(fi);
  assign(fo,'cifra.out');rewrite(fo);     }
	readln(t);
  for l := 1 to t do
  	begin
			readln(j);
  		for n:= 1 to j do
  			begin
  				p := 1;
  				for i := 1 to n do
  					begin
  						p := p*n mod 10;
      				if i = n then
								s:= s+p;
    				end;
    		end;
  		writeln(s mod 10);
      s:=0;
  end;
  {close(fo);  }
end.