Pagini recente » Cod sursa (job #1407709) | Cod sursa (job #2707823) | Cod sursa (job #1695913) | Cod sursa (job #1872265) | Cod sursa (job #287723)
Cod sursa(job #287723)
var n,i,m,j,k:longint;
s:string;
err:integer;
v:array[0..100] of longint;
function f(n:longint):longint;
var i,k:longint;
begin
k:=1;
for i:=1 to n do k:=k*n mod 10;
f:=k;
end;
begin
assign(input,'cifra.in'); reset(input);
assign(output,'cifra.out'); rewrite(output);
v[0]:=0;
for i:=1 to 100 do begin
m:=0;
for j:=1 to i do m:=(m+f(j)) mod 10;
v[i]:=m; end;
readln(j);
for k:=1 to j do begin readln(s); s:=copy(s,length(s)-1,2);
val(s,n,err); writeln(v[n]); end;
close(input);
close(output);
end.