Pagini recente » Borderou de evaluare (job #1320436) | Cod sursa (job #254873)
Cod sursa(job #254873)
var f,g:text;
t,i,j,d,p,x:longint;
a:array[0..30000] of longint;
s,s1:string;
err:integer;
begin
assign(f,'cifra.in'); reset(f);
assign(g,'cifra.out'); rewrite(g);
readln(f,t);
a[0]:=0;
for i:=1 to 99 do
begin
p:=1;
d:=i mod 4;
if d=0 then d:=4;
for j:=1 to d do p:=p*(i mod 10);
a[i]:=(a[i-1]+p) mod 10;
end;
for i:=1 to t do
begin
readln(f,s);
if length(s)=1 then val(s[1],x,err)
else
begin
s1:=s[length(s)-1]+s[length(s)];
val(s1,x,err);
end;
writeln(g,a[x]);
end;
close(f); close(g);
end.