Cod sursa(job #602207)

Utilizator ctlin04UAIC.VlasCatalin ctlin04 Data 9 iulie 2011 19:26:49
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.58 kb
program cifra;
 var t,i,j,n,x,y,code:integer;
     s1,s2:string;
     fi,fo:text;
begin
 assign(fi,'cifra.in');
  reset(fi);
 assign(fo,'cifra.out');
  rewrite(fo);
  readln(fi,t);
 s2:='0152839287784738415445962736211281728598893061706556251629322374051409906950637667184958433403940710';
  for i:=1 to t do begin
                    readln(fi,s1);
                     val(s1[length(s1)],x,code);
                      val(s1[length(s1)-1],y,code);
                        n:=10*y+x;
                         writeln(fo,s2[n]);
                         end;
 close(fo);
 end.