Cod sursa(job #18104)

Utilizator marius21Petcu Marius marius21 Data 18 februarie 2007 08:32:51
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.48 kb
const a:array[0..19] of byte=(0,1,5,2,8,3,9,2,8,7,7,8,4,7,3,8,4,1,5,4);
var s:string;
x,n1,n2,i,t,add:longint;
f,g:text;
begin
assign(f,'cifra.in');
assign(g,'cifra.out');
reset(f);
rewrite(g);
readln(f,t);
for i:=1 to t do begin
readln(f,s);
n1:=0;
n2:=0;
val(s[length(s)],n1);
val(s[length(s)-1],n2);
x:=(10+n2) mod 2;
add:=((10+n2) div 2-5) * 4+x*7 ;
if add+a[n1+x*10]<>0 then
writeln(g,(add+a[n1+x*10])mod 10)
else writeln(g,0);
end;
close(f);
close(g);
end.