Cod sursa(job #602215)

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