Cod sursa(job #126345)

Utilizator alexrusuRusu Alexandru alexrusu Data 21 ianuarie 2008 21:38:11
Problema Cifra Scor 100
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;
    cod:integer;
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
        val(n[l-1],p,cod)
      else
        p:=0;
      x:=p*7;
        val(n[l],u,cod);
      for c:=1 to u do
        x:=x+m[p mod 2, c];
      writeln(g,x mod 10);
    end;
  close(f);
  close(g);
end.