Pagini recente » Cod sursa (job #2476618) | Cod sursa (job #476912) | Cod sursa (job #4087) | Cod sursa (job #1690169) | Cod sursa (job #445066)
Cod sursa(job #445066)
var uc,i,m,n,c,t,u,y:longint;
x,a:array[0..9] of integer;
f,g:text;
begin
assign(f,'cifra.in'); reset(f);
assign(g,'cifra.out'); rewrite(g);
x[0]:=0;
x[1]:=1;
x[2]:=5;
x[3]:=2;
x[4]:=8;
x[5]:=3;
x[6]:=9;
x[7]:=2;
x[8]:=8;
x[9]:=9;
a[0]:=0;
a[1]:=1;
a[2]:=7;
a[3]:=0;
a[4]:=4;
a[5]:=9;
a[6]:=5;
a[7]:=2;
a[8]:=9;
a[9]:=8;
read(f,t);
for i:=1 to t do begin
read(f,n);
c:=n mod 10;
m:=n div 10;
if m mod 2<>0 then begin
y:=(m+1) div 2;
u:=m-y;
uc:=y*x[9]+u*a[9];
uc:=uc+a[c];
uc:=uc mod 10;
end
else begin
y:=m div 2;
u:=y;
uc:=y*x[9]+u*a[9];
uc:=uc+x[c];
uc:=uc mod 10;
end;
writeln(g,uc);
end;
close(g);
close(f);
end.