Pagini recente » Cod sursa (job #1772930) | Cod sursa (job #2580849) | Cod sursa (job #322534) | Cod sursa (job #1820621) | Cod sursa (job #337845)
Cod sursa(job #337845)
Program cifra;
var f,g:text; a:array[0..19]of 0..9;
t,i,r,s:integer;
c:string; code:word;
begin
assign (f,'cifra.in'); reset (f);
assign (g,'cifra.out'); rewrite (g);
a[1]:=1; a[2]:=5; a[3]:=2; a[4]:=8; a[5]:=3;
a[6]:=9; a[7]:=2; a[8]:=8; a[9]:=7; a[10]:=7;
a[11]:=8; a[12]:=4; a[13]:=7; a[14]:=3; a[15]:=8;
a[16]:=4; a[17]:=1; a[18]:=5; a[19]:=4; a[0]:=0;
readln (f,t);
for i:=1 to t do begin
readln (f,c);
c:='0'+c;
c:=c[length (c)-1]+c[length (c)];
val (c,r,code);
s:=4*(r div 20);
s:=s+a[r mod 20];
writeln (g,s mod 10);
end;
close (f); close (g);
end.