Cod sursa(job #936381)

Utilizator wollyFusy Wool wolly Data 6 aprilie 2013 21:41:18
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 1.44 kb
type tabel=array[0..99] of integer;
var t:tabel;
	n,err,p,a:longint;
	ip,op:text;
	s:string;
begin
t[0]:=0;
t[1]:=1;
t[2]:=5;
t[3]:=2;
t[4]:=8;
t[5]:=3;
t[6]:=9;
t[7]:=2;
t[8]:=8;
t[9]:=7;
t[10]:=7;
t[11]:=8;
t[12]:=4;
t[13]:=7;
t[14]:=3;
t[15]:=8;
t[16]:=4;
t[17]:=1;
t[18]:=5;
t[19]:=4;
t[20]:=4;
t[21]:=5;
t[22]:=9;
t[23]:=6;
t[24]:=2;
t[25]:=7;
t[26]:=3;
t[27]:=6;
t[28]:=2;
t[29]:=1;
t[30]:=1;
t[31]:=2;
t[32]:=8;
t[33]:=1;
t[34]:=7;
t[35]:=2;
t[36]:=8;
t[37]:=5;
t[38]:=9;
t[39]:=8;
t[40]:=8;
t[41]:=9;
t[42]:=3;
t[43]:=0;
t[44]:=6;
t[45]:=1;
t[46]:=7;
t[47]:=0;
t[48]:=6;
t[49]:=5;
t[50]:=5;
t[51]:=6;
t[52]:=2;
t[53]:=5;
t[54]:=1;
t[55]:=6;
t[56]:=2;
t[57]:=9;
t[58]:=3;
t[59]:=2;
t[60]:=2;
t[61]:=3;
t[62]:=7;
t[63]:=4;
t[64]:=0;
t[65]:=5;
t[66]:=1;
t[67]:=4;
t[68]:=0;
t[69]:=9;
t[70]:=9;
t[71]:=0;
t[72]:=6;
t[73]:=9;
t[74]:=5;
t[75]:=0;
t[76]:=6;
t[77]:=3;
t[78]:=7;
t[79]:=6;
t[80]:=6;
t[81]:=7;
t[82]:=1;
t[83]:=8;
t[84]:=4;
t[85]:=9;
t[86]:=5;
t[87]:=8;
t[88]:=4;
t[89]:=3;
t[90]:=3;
t[91]:=4;
t[92]:=0;
t[93]:=3;
t[94]:=9;
t[95]:=4;
t[96]:=0;
t[97]:=7;
t[98]:=1;
t[99]:=0;

assign(ip,'cifra.in');
reset(ip);
assign(op,'cifra.out');
rewrite(op);
readln(ip,p);

for a:=1 to p do
begin
readln(ip,s);
if length(s)=1 then
val(s[1],n,err)
else 
val(s[length(s)]+s[length(s)-1],n,err);
writeln(op,t[n]);
end;

close(ip);
close(op);
end.