Pagini recente » Cod sursa (job #1597816) | Cod sursa (job #2648148) | Cod sursa (job #2274946) | Cod sursa (job #2125931) | Cod sursa (job #282892)
Cod sursa(job #282892)
var s:array[1..1000]of 0..9;
f,g:text;
c:string;
i,n,m,x,sm,c1,c2:integer;
function md4(x:integer):integer;
begin
if x mod 4=0 then
md4:=4
else
md4:=x mod 4;
end;
function pu(x:integer):integer;
var i,s:integer;
begin
s:=1;
for i:=1 to md4(x) do
s:=(s mod 10)*(x mod 10);
pu:=s;
end;
begin
s[1]:=1;
for i:=2 to 100 do
s[i]:=(s[i-1]+pu(i))mod 10;
assign(f,'cifra.in');
assign(g,'cifra.out');
reset(f);
rewrite(g);
readln(f,n);
for i:=1 to n do
begin
readln(f,c);
m:=length(c);
c1:=ord(c[m])-48;
c2:=0;
if m>1 then
c2:=ord(c[m-1])-48;
c1:=c2*10+c1;
writeln(g,s[c1]);
end;
close(g);
end.
end.