Cod sursa(job #29519)

Utilizator anthraxztAndrei Tatar anthraxzt Data 9 martie 2007 15:23:24
Problema Cifra Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.49 kb
program cifre;
const u:array[0..1,0..9]of byte = ((0,1,5,2,8,3,9,2,8,7),(0,1,7,0,6,1,7,4,8,7));
var n,z:byte;
    t,j,er:word;
    f,g:text;
    m:0..1;
    l:string[101];
{begin
 write(u[0,2]);
end.}
begin
 assign(f,'cifra.in');reset(f);assign(g,'cifra.out');rewrite(g);
 readln(f,t);
 for j:=1 to t do
  begin
   readln(f,l);
   l:='0'+l;
   val(copy(l,length(l),1),n,er);
   val(copy(l,length(l)-1,1),z,er);
   m:=z and 1;
   writeln(g,(((z*7)mod 10)+u[m,n])mod 10);
  end;
 close(f);close(g);
end.