Cod sursa(job #413122)

Utilizator iSeLastiSeLast iSeLast Data 7 martie 2010 18:50:35
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.49 kb
var j,t:integer; n:word; f,g:text;
function putere(x:word):int64;
 var ret:int64; i:integer;
 begin
 ret:=1;
 for i:=1 to x do
  ret:=(ret*x)MOD 10;
 putere:=ret;
 end;
function usf(n:word):int64;
 var s:int64;i:word;
 begin
 s:=1;
 for i:=2 to n do
  s:=(s+putere(i))MOD 10;
 usf:=s;
 end;
begin
assign(f,'cifra.in');reset(F);
assign(g,'cifra.out');rewrite(g);
readln(f,t);
for j:=1 to t do
 begin
 readln(f,n);
 writeln(g,usf(n) MOD 10);
 end;
close(f);
close(g);
end.