Pagini recente » Cod sursa (job #2255210) | Cod sursa (job #1978458) | Cod sursa (job #2749572) | Cod sursa (job #639203) | Cod sursa (job #413122)
Cod sursa(job #413122)
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.