Cod sursa(job #413111)

Utilizator iSeLastiSeLast iSeLast Data 7 martie 2010 18:16:31
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.47 kb
var j,t:integer; n:word; f,g:text;
function ex(x:word):int64;
 var ret:int64; i:word;
 begin
 ret:=x;
 for i:=2 to x do
  ret:=(ret*x) MOD 10;
 ex:=ret;
 end;
function sf(x:word):int64;
 var s:int64;i:word;
 begin
 s:=1;
 for i:=2 to x do
  s:=(s+ex(i))MOD 10;
 sf:=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,sf(n) MOD 10);
 end;
close(f);
close(g);
end.