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