Cod sursa(job #344391)

Utilizator doruletzPetrican Teodor doruletz Data 29 august 2009 21:46:42
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 1.56 kb
program cifra;
var t,tt:text;
      s:string;
      x:array[0..99]of 0..9;
      aa:byte;
      i,n:0..30000;

begin
 assign(t,'cifra.in'); reset(t);
 x[0]:=0;
 x[1]:=1;
 x[2]:=5;
 x[3]:=2;
 x[4]:=8;
 x[5]:=3;
 x[6]:=9;
 x[7]:=2;
 x[8]:=8;
 x[9]:=7;
 x[10]:=7;
 x[11]:=8;
 x[12]:=4;
 x[13]:=7;
 x[14]:=3;
 x[15]:=8;
 x[16]:=4;
 x[17]:=1;
 x[18]:=5;
 x[19]:=4;
 x[20]:=4;
 x[21]:=5;
 x[22]:=9;
 x[23]:=6;
 x[24]:=2;
 x[25]:=7;
 x[26]:=3;
 x[27]:=6;
 x[28]:=2;
 x[29]:=1;
 x[30]:=1;
 x[31]:=2;
 x[32]:=8;
 x[33]:=1;
 x[34]:=7;
 x[35]:=2;
 x[36]:=8;
 x[37]:=5;
 x[38]:=9;
 x[39]:=8;
 x[40]:=8;
 x[41]:=9;
 x[42]:=3;
 x[43]:=0;
 x[44]:=6;
 x[45]:=1;
 x[46]:=7;
 x[47]:=0;
 x[48]:=6;
 x[49]:=5;
 x[50]:=5;
 x[51]:=6;
 x[52]:=2;
 x[53]:=5;
 x[54]:=1;
 x[55]:=6;
 x[56]:=2;
 x[57]:=9;
 x[58]:=3;
 x[59]:=2;
 x[60]:=2;
 x[61]:=3;
 x[62]:=7;
 x[63]:=4;
 x[64]:=0;
 x[65]:=5;
 x[66]:=1;
 x[67]:=4;
 x[68]:=0;
 x[69]:=9;
 x[70]:=9;
 x[71]:=0;
 x[72]:=6;
 x[73]:=9;
 x[74]:=5;
 x[75]:=0;
 x[76]:=6;
 x[77]:=3;
 x[78]:=7;
 x[79]:=6;
 x[80]:=6;
 x[81]:=7;
 x[82]:=1;
 x[83]:=8;
 x[84]:=4;
 x[85]:=9;
 x[86]:=5;
 x[87]:=8;
 x[88]:=4;
 x[89]:=3;
 x[90]:=3;
 x[91]:=4;
 x[92]:=0;
 x[93]:=3;
 x[94]:=9;
 x[95]:=4;
 x[96]:=0;
 x[97]:=7;
 x[98]:=1;
 x[99]:=0;
 
 readln(t,n);
 assign(tt,'cifra.out'); rewrite(tt);
 for i:=1 to n do begin 
  readln(t,a);
  aa:=ord(s[length(s)])-48;
  if length(s)>1 then aa:=aa+(ord(s[length(s-1)])-48)*10;
  writeln(tt,x[aa]);
 end;
 close(t);
 close(tt);
end.