Cod sursa(job #1147298)

Utilizator braisaMiron Raisa braisa Data 19 martie 2014 18:43:11
Problema Cifra Scor 90
Compilator fpc Status done
Runda Arhiva de probleme Marime 1.64 kb
var t,rs:longint;
    s:ansistring;
    code:longint;
    a:array[0..100] of byte;

 procedure transf(s:ansistring);
  begin
   if length(s)=1 then rs:=ord(s[length(s)])-48
                  else begin
                        rs:=(ord(s[length(s)-1])-48)*10;
                        inc(rs,ord(s[length(s)])-48);
                       end;
  end;

begin
assign(input,'cifra.in');
assign(output,'cifra.out');
reset(input);
rewrite(output);

 a[0]:=0; a[1]:=1; a[2]:=5; a[3]:=2; a[4]:=8; a[5]:=3;
 a[6]:=9; a[7]:=2; a[8]:=8; a[9]:=7; a[10]:=7; a[11]:=8;
 a[12]:=4; a[13]:=7; a[14]:=3; a[15]:=8; a[16]:=4; a[17]:=1;
 a[18]:=5; a[19]:=4; a[20]:=4; a[21]:=5; a[22]:=9; a[23]:=6;
 a[24]:=2; a[25]:=7; a[26]:=3; a[27]:=6; a[28]:=2; a[29]:=1;
 a[30]:=1; a[31]:=2; a[32]:=8; a[33]:=1; a[34]:=7; a[35]:=2;
 a[36]:=8; a[37]:=5; a[38]:=9; a[39]:=8; a[40]:=8; a[41]:=9;
 a[42]:=3; a[43]:=0; a[44]:=6; a[45]:=1; a[46]:=7; a[47]:=0;
 a[48]:=6; a[49]:=5; a[50]:=5; a[51]:=6; a[52]:=2; a[53]:=5;
 a[54]:=1; a[55]:=6; a[56]:=2; a[57]:=9; a[58]:=3; a[59]:=2;
 a[60]:=2; a[61]:=3; a[62]:=7; a[63]:=4; a[64]:=0; a[65]:=5;
 a[66]:=1; a[67]:=4; a[68]:=0; a[69]:=9; a[70]:=9; a[71]:=0;
 a[72]:=6; a[73]:=9; a[74]:=5; a[75]:=0; a[76]:=6; a[77]:=3;
 a[78]:=7; a[79]:=6; a[80]:=6; a[81]:=7; a[82]:=1; a[83]:=8;
 a[84]:=4; a[85]:=9; a[86]:=5; a[87]:=8; a[88]:=4; a[89]:=3;
 a[90]:=3; a[91]:=4; a[92]:=0; a[93]:=3; a[94]:=9; a[95]:=4;
 a[96]:=0; a[97]:=7; a[98]:=1; a[99]:=0;

 readln(t);

   while (t>0) do
    begin
     readln(s);
     transf(s);
     writeln(a[rs]);
     dec(t);
    end;

close(input);
close(output);
{Totusi este trist in lume}
end.