Cod sursa(job #149738)

Utilizator eugen.nodeaEugen Nodea eugen.nodea Data 6 martie 2008 00:54:37
Problema Cifra Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.66 kb
const C:array[0..99] of 0..9=(
0,1,5,2,8,3,9,2,8,7,7,8,4,7,3,8,4,1,5,4,4,5,9,6,2,7,
3,6,2,1,1,2,8,1,7,2,8,5,9,8,8,9,3,0,6,1,7,0,6,5,5,
6,2,5,1,6,2,9,3,2,2,3,7,4,0,5,1,4,0,9,9,0,6,9,5,0,
6,3,7,6,6,7,1,8,4,9,5,8,4,3,3,4,0,3,9,4,0,7,1,0
);
var f,g:text;
    l,T,i,x:integer;
    N:string[101];
Begin
      assign(f,'cifra.in'); reset(f);
      assign(g,'cifra.out'); rewrite(g);
      Readln(f,T);
      For i:=1 To T do
      begin
           Readln(f,N); l:=Length(N);
           if (l>1) then  x:=(Ord(N[l-1])-48)*10+(Ord(N[l])-48)
                    else  x:=Ord(N[l])-48;
           writeln(g,C[x]);
      end;
      close(g);
      close(f);
End.