Cod sursa(job #126340)

Utilizator alexrusuRusu Alexandru alexrusu Data 21 ianuarie 2008 21:34:03
Problema Cifra Scor 90
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.56 kb
var n:string;
    i,t,u,x:longint;
    c,l,p:byte;
    f,g:text;
const   m:array[0..1,1..9]of byte =((1,4,7,6,5,6,3,6,9),(1,6,3,6,5,6,7,4,9));
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,n);
      l:=length(n);
      if l>1 then
        p:=ord(n[l-1])- ord('0')
      else
        p:=0;
      x:=p*7;
      u:=ord(n[l])-ord('0');
      for c:=1 to u do
        x:=x+m[p mod 2, c];
      writeln(g,x mod 10);
    end;
  close(f);
  close(g);
end.