Cod sursa(job #211372)

Utilizator TudorutzuMusoiu Tudor Tudorutzu Data 1 octombrie 2008 21:14:57
Problema Cifra Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.72 kb
var f,g:text;
    t,i,y,x:integer;
    nr:string;
    a:array[1..9,0..1] of integer;
begin
     assign(f,'cifra.in'); reset(f);
     assign(g,'cifra.out'); rewrite(g);
     readln(f,t);
     a[1,0]:=1; a[1,1]:=1;
     a[2,0]:=5; a[2,1]:=7;
     a[3,0]:=2; a[3,1]:=0;
     a[4,0]:=8; a[4,1]:=6;
     a[5,0]:=3; a[5,1]:=1;
     a[6,0]:=9; a[6,1]:=7;
     a[7,0]:=2; a[7,1]:=4;
     a[8,0]:=8; a[8,1]:=8;
     a[9,0]:=7; a[9,1]:=7;
     for i:=1 to t do
     begin
          readln(f,nr);
          if length(nr)>1 then x:=ord(nr[length(nr)-1])-ord('0')
                          else x:=0;
          y:=ord(nr[length(nr)])-ord('0');
          writeln(g,(x*7+a[y,x mod 2])mod 10);
     end;
     close(g);
end.