Cod sursa(job #102351)

Utilizator crisy_girlpop cristina crisy_girl Data 14 noiembrie 2007 12:14:00
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.44 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(fi,t);
  for l := 1 to t do
  	begin
			readln(fi,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(fo,s mod 10);
      s:=0;
  end;
  close(fo);
end.