Pagini recente » Cod sursa (job #915143) | Cod sursa (job #550900) | Cod sursa (job #644681) | Cod sursa (job #1494654) | Cod sursa (job #30902)
Cod sursa(job #30902)
var f,g:text;
i,t,er,x,v:integer;
n:string;
begin
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g);
readln(f,t);
for i:=1 to t do begin
x:=0;
v:=0;
readln(f,n);
val(n[length(n)],x,er);
if x=0 then v:=0
else
if x=1 then v:=1
else
if x=2 then v:=5
else
if x=3 then v:=2
else
if x=4 then v:=8
else
if x=5 then v:=3
else
if x=6 then v:=9
else
if x=7 then v:=2
else
if x=8 then v:=8
else
if x=9 then v:=7;
if length(n)>=2 then begin
val(n[length(n)-1]+n[length(n)],x,er);
if x mod 4=0 then v:=(v+1)mod 10
else
if x mod 4=1 then v:=(v+7)mod 10
else
if x mod 4=2 then v:=(v+9)mod 10
else
v:=(v+3)mod 10;
end;
writeln(g,v);
end;
close(f);
close(g);
end.