Cod sursa(job #745)

Utilizator alien_VS_adidasbau bau alien_VS_adidas Data 11 decembrie 2006 19:57:34
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 12.54 kb
var a:array[1..1000]of byte;
    i,j,n,m,q,p,o,t:longint;
    f,g:text;
begin      {
assign(f,'radu.in');
rewrite(f);
for i:=200 to 1000 do
    begin
         if i mod 10=1 then
            a[i]:=1
         else
         if i mod 10=5 then
          a[i]:=5
         else
         if i mod 10=6 then
            a[i]:=6
         else
         begin
              m:=1;
              if i mod 4=0 then
                 q:=4
              else
                  q:=i mod 4;
              o:=i mod 10;
              for p:=1 to q do
              m:=m*o;
              a[i]:=m mod 10;
         end;
         write(f,'a[',i,']:=',a[i]);
         writeln(f,';');
    end;
{         }
a[1]:=1;
a[2]:=5;
a[3]:=2;
a[4]:=8;
a[5]:=5;
a[6]:=6;
a[7]:=9;
a[8]:=5;
a[9]:=4;
a[10]:=4;
a[11]:=1;
a[12]:=7;
a[13]:=0;
a[14]:=6;
a[15]:=5;
a[16]:=6;
a[17]:=3;
a[18]:=7;
a[19]:=6;
a[20]:=6;
a[21]:=1;
a[22]:=5;
a[23]:=2;
a[24]:=8;
a[25]:=5;
a[26]:=6;
a[27]:=9;
a[28]:=5;
a[29]:=4;
a[30]:=4;
a[31]:=1;
a[32]:=7;
a[33]:=0;
a[34]:=6;
a[35]:=5;
a[36]:=6;
a[37]:=3;
a[38]:=7;
a[39]:=6;
a[40]:=6;
a[41]:=1;
a[42]:=5;
a[43]:=2;
a[44]:=8;
a[45]:=5;
a[46]:=6;
a[47]:=9;
a[48]:=5;
a[49]:=4;
a[50]:=4;
a[51]:=1;
a[52]:=7;
a[53]:=0;
a[54]:=6;
a[55]:=5;
a[56]:=6;
a[57]:=3;
a[58]:=7;
a[59]:=6;
a[60]:=6;
a[61]:=1;
a[62]:=5;
a[63]:=2;
a[64]:=8;
a[65]:=5;
a[66]:=6;
a[67]:=9;
a[68]:=5;
a[69]:=4;
a[70]:=4;
a[71]:=1;
a[72]:=7;
a[73]:=0;
a[74]:=6;
a[75]:=5;
a[76]:=6;
a[77]:=3;
a[78]:=7;
a[79]:=6;
a[80]:=6;
a[81]:=1;
a[82]:=5;
a[83]:=2;
a[84]:=8;
a[85]:=5;
a[86]:=6;
a[87]:=9;
a[88]:=5;
a[89]:=4;
a[90]:=4;
a[91]:=1;
a[92]:=7;
a[93]:=0;
a[94]:=6;
a[95]:=5;
a[96]:=6;
a[97]:=3;
a[98]:=7;
a[99]:=6;
a[100]:=6;
a[101]:=1;
a[102]:=5;
a[103]:=2;
a[104]:=8;
a[105]:=5;
a[106]:=6;
a[107]:=9;
a[108]:=5;
a[109]:=4;
a[110]:=4;
a[111]:=1;
a[112]:=7;
a[113]:=0;
a[114]:=6;
a[115]:=5;
a[116]:=6;
a[117]:=3;
a[118]:=7;
a[119]:=6;
a[120]:=6;
a[121]:=1;
a[122]:=5;
a[123]:=2;
a[124]:=8;
a[125]:=5;
a[126]:=6;
a[127]:=9;
a[128]:=5;
a[129]:=4;
a[130]:=4;
a[131]:=1;
a[132]:=7;
a[133]:=0;
a[134]:=6;
a[135]:=5;
a[136]:=6;
a[137]:=3;
a[138]:=7;
a[139]:=6;
a[140]:=6;
a[141]:=1;
a[142]:=5;
a[143]:=2;
a[144]:=8;
a[145]:=5;
a[146]:=6;
a[147]:=9;
a[148]:=5;
a[149]:=4;
a[150]:=4;
a[151]:=1;
a[152]:=7;
a[153]:=0;
a[154]:=6;
a[155]:=5;
a[156]:=6;
a[157]:=3;
a[158]:=7;
a[159]:=6;
a[160]:=6;
a[161]:=1;
a[162]:=5;
a[163]:=2;
a[164]:=8;
a[165]:=5;
a[166]:=6;
a[167]:=9;
a[168]:=5;
a[169]:=4;
a[170]:=4;
a[171]:=1;
a[172]:=7;
a[173]:=0;
a[174]:=6;
a[175]:=5;
a[176]:=6;
a[177]:=3;
a[178]:=7;
a[179]:=6;
a[180]:=6;
a[181]:=1;
a[182]:=5;
a[183]:=2;
a[184]:=8;
a[185]:=5;
a[186]:=6;
a[187]:=9;
a[188]:=5;
a[189]:=4;
a[190]:=4;
a[191]:=1;
a[192]:=7;
a[193]:=0;
a[194]:=6;
a[195]:=5;
a[196]:=6;
a[197]:=3;
a[198]:=7;
a[199]:=6;
a[200]:=6;
a[201]:=1;
a[202]:=5;
a[203]:=2;
a[204]:=8;
a[205]:=5;
a[206]:=6;
a[207]:=9;
a[208]:=5;
a[209]:=4;
a[210]:=4;
a[211]:=1;
a[212]:=7;
a[213]:=0;
a[214]:=6;
a[215]:=5;
a[216]:=6;
a[217]:=3;
a[218]:=7;
a[219]:=6;
a[220]:=6;
a[221]:=1;
a[222]:=5;
a[223]:=2;
a[224]:=8;
a[225]:=5;
a[226]:=6;
a[227]:=9;
a[228]:=5;
a[229]:=4;
a[230]:=4;
a[231]:=1;
a[232]:=7;
a[233]:=0;
a[234]:=6;
a[235]:=5;
a[236]:=6;
a[237]:=3;
a[238]:=7;
a[239]:=6;
a[240]:=6;
a[241]:=1;
a[242]:=5;
a[243]:=2;
a[244]:=8;
a[245]:=5;
a[246]:=6;
a[247]:=9;
a[248]:=5;
a[249]:=4;
a[250]:=4;
a[251]:=1;
a[252]:=7;
a[253]:=0;
a[254]:=6;
a[255]:=5;
a[256]:=6;
a[257]:=3;
a[258]:=7;
a[259]:=6;
a[260]:=6;
a[261]:=1;
a[262]:=5;
a[263]:=2;
a[264]:=8;
a[265]:=5;
a[266]:=6;
a[267]:=9;
a[268]:=5;
a[269]:=4;
a[270]:=4;
a[271]:=1;
a[272]:=7;
a[273]:=0;
a[274]:=6;
a[275]:=5;
a[276]:=6;
a[277]:=3;
a[278]:=7;
a[279]:=6;
a[280]:=6;
a[281]:=1;
a[282]:=5;
a[283]:=2;
a[284]:=8;
a[285]:=5;
a[286]:=6;
a[287]:=9;
a[288]:=5;
a[289]:=4;
a[290]:=4;
a[291]:=1;
a[292]:=7;
a[293]:=0;
a[294]:=6;
a[295]:=5;
a[296]:=6;
a[297]:=3;
a[298]:=7;
a[299]:=6;
a[300]:=6;
a[301]:=1;
a[302]:=5;
a[303]:=2;
a[304]:=8;
a[305]:=5;
a[306]:=6;
a[307]:=9;
a[308]:=5;
a[309]:=4;
a[310]:=4;
a[311]:=1;
a[312]:=7;
a[313]:=0;
a[314]:=6;
a[315]:=5;
a[316]:=6;
a[317]:=3;
a[318]:=7;
a[319]:=6;
a[320]:=6;
a[321]:=1;
a[322]:=5;
a[323]:=2;
a[324]:=8;
a[325]:=5;
a[326]:=6;
a[327]:=9;
a[328]:=5;
a[329]:=4;
a[330]:=4;
a[331]:=1;
a[332]:=7;
a[333]:=0;
a[334]:=6;
a[335]:=5;
a[336]:=6;
a[337]:=3;
a[338]:=7;
a[339]:=6;
a[340]:=6;
a[341]:=1;
a[342]:=5;
a[343]:=2;
a[344]:=8;
a[345]:=5;
a[346]:=6;
a[347]:=9;
a[348]:=5;
a[349]:=4;
a[350]:=4;
a[351]:=1;
a[352]:=7;
a[353]:=0;
a[354]:=6;
a[355]:=5;
a[356]:=6;
a[357]:=3;
a[358]:=7;
a[359]:=6;
a[360]:=6;
a[361]:=1;
a[362]:=5;
a[363]:=2;
a[364]:=8;
a[365]:=5;
a[366]:=6;
a[367]:=9;
a[368]:=5;
a[369]:=4;
a[370]:=4;
a[371]:=1;
a[372]:=7;
a[373]:=0;
a[374]:=6;
a[375]:=5;
a[376]:=6;
a[377]:=3;
a[378]:=7;
a[379]:=6;
a[380]:=6;
a[381]:=1;
a[382]:=5;
a[383]:=2;
a[384]:=8;
a[385]:=5;
a[386]:=6;
a[387]:=9;
a[388]:=5;
a[389]:=4;
a[390]:=4;
a[391]:=1;
a[392]:=7;
a[393]:=0;
a[394]:=6;
a[395]:=5;
a[396]:=6;
a[397]:=3;
a[398]:=7;
a[399]:=6;
a[400]:=6;
a[401]:=1;
a[402]:=5;
a[403]:=2;
a[404]:=8;
a[405]:=5;
a[406]:=6;
a[407]:=9;
a[408]:=5;
a[409]:=4;
a[410]:=4;
a[411]:=1;
a[412]:=7;
a[413]:=0;
a[414]:=6;
a[415]:=5;
a[416]:=6;
a[417]:=3;
a[418]:=7;
a[419]:=6;
a[420]:=6;
a[421]:=1;
a[422]:=5;
a[423]:=2;
a[424]:=8;
a[425]:=5;
a[426]:=6;
a[427]:=9;
a[428]:=5;
a[429]:=4;
a[430]:=4;
a[431]:=1;
a[432]:=7;
a[433]:=0;
a[434]:=6;
a[435]:=5;
a[436]:=6;
a[437]:=3;
a[438]:=7;
a[439]:=6;
a[440]:=6;
a[441]:=1;
a[442]:=5;
a[443]:=2;
a[444]:=8;
a[445]:=5;
a[446]:=6;
a[447]:=9;
a[448]:=5;
a[449]:=4;
a[450]:=4;
a[451]:=1;
a[452]:=7;
a[453]:=0;
a[454]:=6;
a[455]:=5;
a[456]:=6;
a[457]:=3;
a[458]:=7;
a[459]:=6;
a[460]:=6;
a[461]:=1;
a[462]:=5;
a[463]:=2;
a[464]:=8;
a[465]:=5;
a[466]:=6;
a[467]:=9;
a[468]:=5;
a[469]:=4;
a[470]:=4;
a[471]:=1;
a[472]:=7;
a[473]:=0;
a[474]:=6;
a[475]:=5;
a[476]:=6;
a[477]:=3;
a[478]:=7;
a[479]:=6;
a[480]:=6;
a[481]:=1;
a[482]:=5;
a[483]:=2;
a[484]:=8;
a[485]:=5;
a[486]:=6;
a[487]:=9;
a[488]:=5;
a[489]:=4;
a[490]:=4;
a[491]:=1;
a[492]:=7;
a[493]:=0;
a[494]:=6;
a[495]:=5;
a[496]:=6;
a[497]:=3;
a[498]:=7;
a[499]:=6;
a[500]:=6;
a[501]:=1;
a[502]:=5;
a[503]:=2;
a[504]:=8;
a[505]:=5;
a[506]:=6;
a[507]:=9;
a[508]:=5;
a[509]:=4;
a[510]:=4;
a[511]:=1;
a[512]:=7;
a[513]:=0;
a[514]:=6;
a[515]:=5;
a[516]:=6;
a[517]:=3;
a[518]:=7;
a[519]:=6;
a[520]:=6;
a[521]:=1;
a[522]:=5;
a[523]:=2;
a[524]:=8;
a[525]:=5;
a[526]:=6;
a[527]:=9;
a[528]:=5;
a[529]:=4;
a[530]:=4;
a[531]:=1;
a[532]:=7;
a[533]:=0;
a[534]:=6;
a[535]:=5;
a[536]:=6;
a[537]:=3;
a[538]:=7;
a[539]:=6;
a[540]:=6;
a[541]:=1;
a[542]:=5;
a[543]:=2;
a[544]:=8;
a[545]:=5;
a[546]:=6;
a[547]:=9;
a[548]:=5;
a[549]:=4;
a[550]:=4;
a[551]:=1;
a[552]:=7;
a[553]:=0;
a[554]:=6;
a[555]:=5;
a[556]:=6;
a[557]:=3;
a[558]:=7;
a[559]:=6;
a[560]:=6;
a[561]:=1;
a[562]:=5;
a[563]:=2;
a[564]:=8;
a[565]:=5;
a[566]:=6;
a[567]:=9;
a[568]:=5;
a[569]:=4;
a[570]:=4;
a[571]:=1;
a[572]:=7;
a[573]:=0;
a[574]:=6;
a[575]:=5;
a[576]:=6;
a[577]:=3;
a[578]:=7;
a[579]:=6;
a[580]:=6;
a[581]:=1;
a[582]:=5;
a[583]:=2;
a[584]:=8;
a[585]:=5;
a[586]:=6;
a[587]:=9;
a[588]:=5;
a[589]:=4;
a[590]:=4;
a[591]:=1;
a[592]:=7;
a[593]:=0;
a[594]:=6;
a[595]:=5;
a[596]:=6;
a[597]:=3;
a[598]:=7;
a[599]:=6;
a[600]:=6;
a[601]:=1;
a[602]:=5;
a[603]:=2;
a[604]:=8;
a[605]:=5;
a[606]:=6;
a[607]:=9;
a[608]:=5;
a[609]:=4;
a[610]:=4;
a[611]:=1;
a[612]:=7;
a[613]:=0;
a[614]:=6;
a[615]:=5;
a[616]:=6;
a[617]:=3;
a[618]:=7;
a[619]:=6;
a[620]:=6;
a[621]:=1;
a[622]:=5;
a[623]:=2;
a[624]:=8;
a[625]:=5;
a[626]:=6;
a[627]:=9;
a[628]:=5;
a[629]:=4;
a[630]:=4;
a[631]:=1;
a[632]:=7;
a[633]:=0;
a[634]:=6;
a[635]:=5;
a[636]:=6;
a[637]:=3;
a[638]:=7;
a[639]:=6;
a[640]:=6;
a[641]:=1;
a[642]:=5;
a[643]:=2;
a[644]:=8;
a[645]:=5;
a[646]:=6;
a[647]:=9;
a[648]:=5;
a[649]:=4;
a[650]:=4;
a[651]:=1;
a[652]:=7;
a[653]:=0;
a[654]:=6;
a[655]:=5;
a[656]:=6;
a[657]:=3;
a[658]:=7;
a[659]:=6;
a[660]:=6;
a[661]:=1;
a[662]:=5;
a[663]:=2;
a[664]:=8;
a[665]:=5;
a[666]:=6;
a[667]:=9;
a[668]:=5;
a[669]:=4;
a[670]:=4;
a[671]:=1;
a[672]:=7;
a[673]:=0;
a[674]:=6;
a[675]:=5;
a[676]:=6;
a[677]:=3;
a[678]:=7;
a[679]:=6;
a[680]:=6;
a[681]:=1;
a[682]:=5;
a[683]:=2;
a[684]:=8;
a[685]:=5;
a[686]:=6;
a[687]:=9;
a[688]:=5;
a[689]:=4;
a[690]:=4;
a[691]:=1;
a[692]:=7;
a[693]:=0;
a[694]:=6;
a[695]:=5;
a[696]:=6;
a[697]:=3;
a[698]:=7;
a[699]:=6;
a[700]:=6;
a[701]:=1;
a[702]:=5;
a[703]:=2;
a[704]:=8;
a[705]:=5;
a[706]:=6;
a[707]:=9;
a[708]:=5;
a[709]:=4;
a[710]:=4;
a[711]:=1;
a[712]:=7;
a[713]:=0;
a[714]:=6;
a[715]:=5;
a[716]:=6;
a[717]:=3;
a[718]:=7;
a[719]:=6;
a[720]:=6;
a[721]:=1;
a[722]:=5;
a[723]:=2;
a[724]:=8;
a[725]:=5;
a[726]:=6;
a[727]:=9;
a[728]:=5;
a[729]:=4;
a[730]:=4;
a[731]:=1;
a[732]:=7;
a[733]:=0;
a[734]:=6;
a[735]:=5;
a[736]:=6;
a[737]:=3;
a[738]:=7;
a[739]:=6;
a[740]:=6;
a[741]:=1;
a[742]:=5;
a[743]:=2;
a[744]:=8;
a[745]:=5;
a[746]:=6;
a[747]:=9;
a[748]:=5;
a[749]:=4;
a[750]:=4;
a[751]:=1;
a[752]:=7;
a[753]:=0;
a[754]:=6;
a[755]:=5;
a[756]:=6;
a[757]:=3;
a[758]:=7;
a[759]:=6;
a[760]:=6;
a[761]:=1;
a[762]:=5;
a[763]:=2;
a[764]:=8;
a[765]:=5;
a[766]:=6;
a[767]:=9;
a[768]:=5;
a[769]:=4;
a[770]:=4;
a[771]:=1;
a[772]:=7;
a[773]:=0;
a[774]:=6;
a[775]:=5;
a[776]:=6;
a[777]:=3;
a[778]:=7;
a[779]:=6;
a[780]:=6;
a[781]:=1;
a[782]:=5;
a[783]:=2;
a[784]:=8;
a[785]:=5;
a[786]:=6;
a[787]:=9;
a[788]:=5;
a[789]:=4;
a[790]:=4;
a[791]:=1;
a[792]:=7;
a[793]:=0;
a[794]:=6;
a[795]:=5;
a[796]:=6;
a[797]:=3;
a[798]:=7;
a[799]:=6;
a[800]:=6;
a[801]:=1;
a[802]:=5;
a[803]:=2;
a[804]:=8;
a[805]:=5;
a[806]:=6;
a[807]:=9;
a[808]:=5;
a[809]:=4;
a[810]:=4;
a[811]:=1;
a[812]:=7;
a[813]:=0;
a[814]:=6;
a[815]:=5;
a[816]:=6;
a[817]:=3;
a[818]:=7;
a[819]:=6;
a[820]:=6;
a[821]:=1;
a[822]:=5;
a[823]:=2;
a[824]:=8;
a[825]:=5;
a[826]:=6;
a[827]:=9;
a[828]:=5;
a[829]:=4;
a[830]:=4;
a[831]:=1;
a[832]:=7;
a[833]:=0;
a[834]:=6;
a[835]:=5;
a[836]:=6;
a[837]:=3;
a[838]:=7;
a[839]:=6;
a[840]:=6;
a[841]:=1;
a[842]:=5;
a[843]:=2;
a[844]:=8;
a[845]:=5;
a[846]:=6;
a[847]:=9;
a[848]:=5;
a[849]:=4;
a[850]:=4;
a[851]:=1;
a[852]:=7;
a[853]:=0;
a[854]:=6;
a[855]:=5;
a[856]:=6;
a[857]:=3;
a[858]:=7;
a[859]:=6;
a[860]:=6;
a[861]:=1;
a[862]:=5;
a[863]:=2;
a[864]:=8;
a[865]:=5;
a[866]:=6;
a[867]:=9;
a[868]:=5;
a[869]:=4;
a[870]:=4;
a[871]:=1;
a[872]:=7;
a[873]:=0;
a[874]:=6;
a[875]:=5;
a[876]:=6;
a[877]:=3;
a[878]:=7;
a[879]:=6;
a[880]:=6;
a[881]:=1;
a[882]:=5;
a[883]:=2;
a[884]:=8;
a[885]:=5;
a[886]:=6;
a[887]:=9;
a[888]:=5;
a[889]:=4;
a[890]:=4;
a[891]:=1;
a[892]:=7;
a[893]:=0;
a[894]:=6;
a[895]:=5;
a[896]:=6;
a[897]:=3;
a[898]:=7;
a[899]:=6;
a[900]:=6;
a[901]:=1;
a[902]:=5;
a[903]:=2;
a[904]:=8;
a[905]:=5;
a[906]:=6;
a[907]:=9;
a[908]:=5;
a[909]:=4;
a[910]:=4;
a[911]:=1;
a[912]:=7;
a[913]:=0;
a[914]:=6;
a[915]:=5;
a[916]:=6;
a[917]:=3;
a[918]:=7;
a[919]:=6;
a[920]:=6;
a[921]:=1;
a[922]:=5;
a[923]:=2;
a[924]:=8;
a[925]:=5;
a[926]:=6;
a[927]:=9;
a[928]:=5;
a[929]:=4;
a[930]:=4;
a[931]:=1;
a[932]:=7;
a[933]:=0;
a[934]:=6;
a[935]:=5;
a[936]:=6;
a[937]:=3;
a[938]:=7;
a[939]:=6;
a[940]:=6;
a[941]:=1;
a[942]:=5;
a[943]:=2;
a[944]:=8;
a[945]:=5;
a[946]:=6;
a[947]:=9;
a[948]:=5;
a[949]:=4;
a[950]:=4;
a[951]:=1;
a[952]:=7;
a[953]:=0;
a[954]:=6;
a[955]:=5;
a[956]:=6;
a[957]:=3;
a[958]:=7;
a[959]:=6;
a[960]:=6;
a[961]:=1;
a[962]:=5;
a[963]:=2;
a[964]:=8;
a[965]:=5;
a[966]:=6;
a[967]:=9;
a[968]:=5;
a[969]:=4;
a[970]:=4;
a[971]:=1;
a[972]:=7;
a[973]:=0;
a[974]:=6;
a[975]:=5;
a[976]:=6;
a[977]:=3;
a[978]:=7;
a[979]:=6;
a[980]:=6;
a[981]:=1;
a[982]:=5;
a[983]:=2;
a[984]:=8;
a[985]:=5;
a[986]:=6;
a[987]:=9;
a[988]:=5;
a[989]:=4;
a[990]:=4;
a[991]:=5;
a[992]:=1;
a[993]:=4;
a[994]:=0;
a[995]:=5;
a[996]:=1;
a[997]:=8;
a[998]:=2;
a[999]:=1;
a[1000]:=1;
assign(f,'cifra.in');
assign(g,'cifra.out');
rewrite(g);
reset(f);
         readln(f,t);
         for i:=1 to t do
         begin
              read(f,p);
              writeln(g,a[p]);
         end;
close(f);
close(g);
end.