Cod sursa(job #46503)

Utilizator toni2007Pripoae Teodor Anton toni2007 Data 2 aprilie 2007 18:15:46
Problema Fractii Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 14.78 kb
type vector=array[1..1000]of integer;
var n,i,j,s:longint;f1,f2:text;v:vector;
Function ired(x,y:integer;v:vector):integer;
var z,m:integer;
label 1;
begin
If x>y then z:=y
else z:=x;
ired:=0;m:=0;
Repeat m:=m+1;
If (x mod v[m]=0)and(y mod v[m]=0)then begin
ired:=1;
goto 1;
end;
until v[m]>=z;
1:End;
begin
assign(f1,'fractii.in');reset(f1);
assign(f2,'fractii.out');rewrite(f2);
read(f1,n);
s:=1;
v[1]:=2;
v[2]:=3;
v[3]:=5;
v[4]:=7;
v[5]:=11;
v[6]:=13;
v[7]:=17;
v[8]:=19;
v[9]:=23;
v[10]:=29;
v[11]:=31;
v[12]:=37;
v[13]:=41;
v[14]:=43;
v[15]:=47;
v[16]:=53;
v[17]:=59;
v[18]:=61;
v[19]:=67;
v[20]:=71;
v[21]:=73;
v[22]:=79;
v[23]:=83;
v[24]:=89;
v[25]:=97;
v[26]:=101;
v[27]:=103;
v[28]:=107;
v[29]:=109;
v[30]:=113;
v[31]:=127;
v[32]:=131;
v[33]:=137;
v[34]:=139;
v[35]:=149;
v[36]:=151;
v[37]:=157;
v[38]:=163;
v[39]:=167;
v[40]:=173;
v[41]:=179;
v[42]:=181;
v[43]:=191;
v[44]:=193;
v[45]:=197;
v[46]:=199;
v[47]:=211;
v[48]:=223;
v[49]:=227;
v[50]:=229;
v[51]:=233;
v[52]:=239;
v[53]:=241;
v[54]:=251;
v[55]:=257;
v[56]:=263;
v[57]:=269;
v[58]:=271;
v[59]:=277;
v[60]:=281;
v[61]:=283;
v[62]:=293;
v[63]:=307;
v[64]:=311;
v[65]:=313;
v[66]:=317;
v[67]:=331;
v[68]:=337;
v[69]:=347;
v[70]:=349;
v[71]:=353;
v[72]:=359;
v[73]:=367;
v[74]:=373;
v[75]:=379;
v[76]:=383;
v[77]:=389;
v[78]:=397;
v[79]:=401;
v[80]:=409;
v[81]:=419;
v[82]:=421;
v[83]:=431;
v[84]:=433;
v[85]:=439;
v[86]:=443;
v[87]:=449;
v[88]:=457;
v[89]:=461;
v[90]:=463;
v[91]:=467;
v[92]:=479;
v[93]:=487;
v[94]:=491;
v[95]:=499;
v[96]:=503;
v[97]:=509;
v[98]:=521;
v[99]:=523;
v[100]:=541;
v[101]:=547;
v[102]:=557;
v[103]:=563;
v[104]:=569;
v[105]:=571;
v[106]:=577;
v[107]:=587;
v[108]:=593;
v[109]:=599;
v[110]:=601;
v[111]:=607;
v[112]:=613;
v[113]:=617;
v[114]:=619;
v[115]:=631;
v[116]:=641;
v[117]:=643;
v[118]:=647;
v[119]:=653;
v[120]:=659;
v[121]:=661;
v[122]:=673;
v[123]:=677;
v[124]:=683;
v[125]:=691;
v[126]:=701;
v[127]:=709;
v[128]:=719;
v[129]:=727;
v[130]:=733;
v[131]:=739;
v[132]:=743;
v[133]:=751;
v[134]:=757;
v[135]:=761;
v[136]:=769;
v[137]:=773;
v[138]:=787;
v[139]:=797;
v[140]:=809;
v[141]:=811;
v[142]:=821;
v[143]:=823;
v[144]:=827;
v[145]:=829;
v[146]:=839;
v[147]:=853;
v[148]:=857;
v[149]:=859;
v[150]:=863;
v[151]:=877;
v[152]:=881;
v[153]:=883;
v[154]:=887;
v[155]:=907;
v[156]:=911;
v[157]:=919;
v[158]:=929;
v[159]:=937;
v[160]:=941;
v[161]:=947;
v[162]:=953;
v[163]:=967;
v[164]:=971;
v[165]:=977;
v[166]:=983;
v[167]:=991;
v[168]:=997;
v[169]:=1009;
v[170]:=1013;
v[171]:=1019;
v[172]:=1021;
v[173]:=1031;
v[174]:=1033;
v[175]:=1039;
v[176]:=1049;
v[177]:=1051;
v[178]:=1061;
v[179]:=1063;
v[180]:=1069;
v[181]:=1087;
v[182]:=1091;
v[183]:=1093;
v[184]:=1097;
v[185]:=1103;
v[186]:=1109;
v[187]:=1117;
v[188]:=1123;
v[189]:=1129;
v[190]:=1151;
v[191]:=1153;
v[192]:=1163;
v[193]:=1171;
v[194]:=1181;
v[195]:=1187;
v[196]:=1193;
v[197]:=1201;
v[198]:=1213;
v[199]:=1217;
v[200]:=1223;
v[201]:=1229;
v[202]:=1231;
v[203]:=1237;
v[204]:=1249;
v[205]:=1259;
v[206]:=1277;
v[207]:=1279;
v[208]:=1283;
v[209]:=1289;
v[210]:=1291;
v[211]:=1297;
v[212]:=1301;
v[213]:=1303;
v[214]:=1307;
v[215]:=1319;
v[216]:=1321;
v[217]:=1327;
v[218]:=1361;
v[219]:=1367;
v[220]:=1373;
v[221]:=1381;
v[222]:=1399;
v[223]:=1409;
v[224]:=1423;
v[225]:=1427;
v[226]:=1429;
v[227]:=1433;
v[228]:=1439;
v[229]:=1447;
v[230]:=1451;
v[231]:=1453;
v[232]:=1459;
v[233]:=1471;
v[234]:=1481;
v[235]:=1483;
v[236]:=1487;
v[237]:=1489;
v[238]:=1493;
v[239]:=1499;
v[240]:=1511;
v[241]:=1523;
v[242]:=1531;
v[243]:=1543;
v[244]:=1549;
v[245]:=1553;
v[246]:=1559;
v[247]:=1567;
v[248]:=1571;
v[249]:=1579;
v[250]:=1583;
v[251]:=1597;
v[252]:=1601;
v[253]:=1607;
v[254]:=1609;
v[255]:=1613;
v[256]:=1619;
v[257]:=1621;
v[258]:=1627;
v[259]:=1637;
v[260]:=1657;
v[261]:=1663;
v[262]:=1667;
v[263]:=1669;
v[264]:=1693;
v[265]:=1697;
v[266]:=1699;
v[267]:=1709;
v[268]:=1721;
v[269]:=1723;
v[270]:=1733;
v[271]:=1741;
v[272]:=1747;
v[273]:=1753;
v[274]:=1759;
v[275]:=1777;
v[276]:=1783;
v[277]:=1787;
v[278]:=1789;
v[279]:=1801;
v[280]:=1811;
v[281]:=1823;
v[282]:=1831;
v[283]:=1847;
v[284]:=1861;
v[285]:=1867;
v[286]:=1871;
v[287]:=1873;
v[288]:=1877;
v[289]:=1879;
v[290]:=1889;
v[291]:=1901;
v[292]:=1907;
v[293]:=1913;
v[294]:=1931;
v[295]:=1933;
v[296]:=1949;
v[297]:=1951;
v[298]:=1973;
v[299]:=1979;
v[300]:=1987;
v[301]:=1993;
v[302]:=1997;
v[303]:=1999;
v[304]:=2003;
v[305]:=2011;
v[306]:=2017;
v[307]:=2027;
v[308]:=2029;
v[309]:=2039;
v[310]:=2053;
v[311]:=2063;
v[312]:=2069;
v[313]:=2081;
v[314]:=2083;
v[315]:=2087;
v[316]:=2089;
v[317]:=2099;
v[318]:=2111;
v[319]:=2113;
v[320]:=2129;
v[321]:=2131;
v[322]:=2137;
v[323]:=2141;
v[324]:=2143;
v[325]:=2153;
v[326]:=2161;
v[327]:=2179;
v[328]:=2203;
v[329]:=2207;
v[330]:=2213;
v[331]:=2221;
v[332]:=2237;
v[333]:=2239;
v[334]:=2243;
v[335]:=2251;
v[336]:=2267;
v[337]:=2269;
v[338]:=2273;
v[339]:=2281;
v[340]:=2287;
v[341]:=2293;
v[342]:=2297;
v[343]:=2309;
v[344]:=2311;
v[345]:=2333;
v[346]:=2339;
v[347]:=2341;
v[348]:=2347;
v[349]:=2351;
v[350]:=2357;
v[351]:=2371;
v[352]:=2377;
v[353]:=2381;
v[354]:=2383;
v[355]:=2389;
v[356]:=2393;
v[357]:=2399;
v[358]:=2411;
v[359]:=2417;
v[360]:=2423;
v[361]:=2437;
v[362]:=2441;
v[363]:=2447;
v[364]:=2459;
v[365]:=2467;
v[366]:=2473;
v[367]:=2477;
v[368]:=2503;
v[369]:=2521;
v[370]:=2531;
v[371]:=2539;
v[372]:=2543;
v[373]:=2549;
v[374]:=2551;
v[375]:=2557;
v[376]:=2579;
v[377]:=2591;
v[378]:=2593;
v[379]:=2609;
v[380]:=2617;
v[381]:=2621;
v[382]:=2633;
v[383]:=2647;
v[384]:=2657;
v[385]:=2659;
v[386]:=2663;
v[387]:=2671;
v[388]:=2677;
v[389]:=2683;
v[390]:=2687;
v[391]:=2689;
v[392]:=2693;
v[393]:=2699;
v[394]:=2707;
v[395]:=2711;
v[396]:=2713;
v[397]:=2719;
v[398]:=2729;
v[399]:=2731;
v[400]:=2741;
v[401]:=2749;
v[402]:=2753;
v[403]:=2767;
v[404]:=2777;
v[405]:=2789;
v[406]:=2791;
v[407]:=2797;
v[408]:=2801;
v[409]:=2803;
v[410]:=2819;
v[411]:=2833;
v[412]:=2837;
v[413]:=2843;
v[414]:=2851;
v[415]:=2857;
v[416]:=2861;
v[417]:=2879;
v[418]:=2887;
v[419]:=2897;
v[420]:=2903;
v[421]:=2909;
v[422]:=2917;
v[423]:=2927;
v[424]:=2939;
v[425]:=2953;
v[426]:=2957;
v[427]:=2963;
v[428]:=2969;
v[429]:=2971;
v[430]:=2999;
v[431]:=3001;
v[432]:=3011;
v[433]:=3019;
v[434]:=3023;
v[435]:=3037;
v[436]:=3041;
v[437]:=3049;
v[438]:=3061;
v[439]:=3067;
v[440]:=3079;
v[441]:=3083;
v[442]:=3089;
v[443]:=3109;
v[444]:=3119;
v[445]:=3121;
v[446]:=3137;
v[447]:=3163;
v[448]:=3167;
v[449]:=3169;
v[450]:=3181;
v[451]:=3187;
v[452]:=3191;
v[453]:=3203;
v[454]:=3209;
v[455]:=3217;
v[456]:=3221;
v[457]:=3229;
v[458]:=3251;
v[459]:=3253;
v[460]:=3257;
v[461]:=3259;
v[462]:=3271;
v[463]:=3299;
v[464]:=3301;
v[465]:=3307;
v[466]:=3313;
v[467]:=3319;
v[468]:=3323;
v[469]:=3329;
v[470]:=3331;
v[471]:=3343;
v[472]:=3347;
v[473]:=3359;
v[474]:=3361;
v[475]:=3371;
v[476]:=3373;
v[477]:=3389;
v[478]:=3391;
v[479]:=3407;
v[480]:=3413;
v[481]:=3433;
v[482]:=3449;
v[483]:=3457;
v[484]:=3461;
v[485]:=3463;
v[486]:=3467;
v[487]:=3469;
v[488]:=3491;
v[489]:=3499;
v[490]:=3511;
v[491]:=3517;
v[492]:=3527;
v[493]:=3529;
v[494]:=3533;
v[495]:=3539;
v[496]:=3541;
v[497]:=3547;
v[498]:=3557;
v[499]:=3559;
v[500]:=3571;
v[501]:=3581;
v[502]:=3583;
v[503]:=3593;
v[504]:=3607;
v[505]:=3613;
v[506]:=3617;
v[507]:=3623;
v[508]:=3631;
v[509]:=3637;
v[510]:=3643;
v[511]:=3659;
v[512]:=3671;
v[513]:=3673;
v[514]:=3677;
v[515]:=3691;
v[516]:=3697;
v[517]:=3701;
v[518]:=3709;
v[519]:=3719;
v[520]:=3727;
v[521]:=3733;
v[522]:=3739;
v[523]:=3761;
v[524]:=3767;
v[525]:=3769;
v[526]:=3779;
v[527]:=3793;
v[528]:=3797;
v[529]:=3803;
v[530]:=3821;
v[531]:=3823;
v[532]:=3833;
v[533]:=3847;
v[534]:=3851;
v[535]:=3853;
v[536]:=3863;
v[537]:=3877;
v[538]:=3881;
v[539]:=3889;
v[540]:=3907;
v[541]:=3911;
v[542]:=3917;
v[543]:=3919;
v[544]:=3923;
v[545]:=3929;
v[546]:=3931;
v[547]:=3943;
v[548]:=3947;
v[549]:=3967;
v[550]:=3989;
v[551]:=4001;
v[552]:=4003;
v[553]:=4007;
v[554]:=4013;
v[555]:=4019;
v[556]:=4021;
v[557]:=4027;
v[558]:=4049;
v[559]:=4051;
v[560]:=4057;
v[561]:=4073;
v[562]:=4079;
v[563]:=4091;
v[564]:=4093;
v[565]:=4099;
v[566]:=4111;
v[567]:=4127;
v[568]:=4129;
v[569]:=4133;
v[570]:=4139;
v[571]:=4153;
v[572]:=4157;
v[573]:=4159;
v[574]:=4177;
v[575]:=4201;
v[576]:=4211;
v[577]:=4217;
v[578]:=4219;
v[579]:=4229;
v[580]:=4231;
v[581]:=4241;
v[582]:=4243;
v[583]:=4253;
v[584]:=4259;
v[585]:=4261;
v[586]:=4271;
v[587]:=4273;
v[588]:=4283;
v[589]:=4289;
v[590]:=4297;
v[591]:=4327;
v[592]:=4337;
v[593]:=4339;
v[594]:=4349;
v[595]:=4357;
v[596]:=4363;
v[597]:=4373;
v[598]:=4391;
v[599]:=4397;
v[600]:=4409;
v[601]:=4421;
v[602]:=4423;
v[603]:=4441;
v[604]:=4447;
v[605]:=4451;
v[606]:=4457;
v[607]:=4463;
v[608]:=4481;
v[609]:=4483;
v[610]:=4493;
v[611]:=4507;
v[612]:=4513;
v[613]:=4517;
v[614]:=4519;
v[615]:=4523;
v[616]:=4547;
v[617]:=4549;
v[618]:=4561;
v[619]:=4567;
v[620]:=4583;
v[621]:=4591;
v[622]:=4597;
v[623]:=4603;
v[624]:=4621;
v[625]:=4637;
v[626]:=4639;
v[627]:=4643;
v[628]:=4649;
v[629]:=4651;
v[630]:=4657;
v[631]:=4663;
v[632]:=4673;
v[633]:=4679;
v[634]:=4691;
v[635]:=4703;
v[636]:=4721;
v[637]:=4723;
v[638]:=4729;
v[639]:=4733;
v[640]:=4751;
v[641]:=4759;
v[642]:=4783;
v[643]:=4787;
v[644]:=4789;
v[645]:=4793;
v[646]:=4799;
v[647]:=4801;
v[648]:=4813;
v[649]:=4817;
v[650]:=4831;
v[651]:=4861;
v[652]:=4871;
v[653]:=4877;
v[654]:=4889;
v[655]:=4903;
v[656]:=4909;
v[657]:=4919;
v[658]:=4931;
v[659]:=4933;
v[660]:=4937;
v[661]:=4943;
v[662]:=4951;
v[663]:=4957;
v[664]:=4967;
v[665]:=4969;
v[666]:=4973;
v[667]:=4987;
v[668]:=4993;
v[669]:=4999;
v[670]:=5003;
v[671]:=5009;
v[672]:=5011;
v[673]:=5021;
v[674]:=5023;
v[675]:=5039;
v[676]:=5051;
v[677]:=5059;
v[678]:=5077;
v[679]:=5081;
v[680]:=5087;
v[681]:=5099;
v[682]:=5101;
v[683]:=5107;
v[684]:=5113;
v[685]:=5119;
v[686]:=5147;
v[687]:=5153;
v[688]:=5167;
v[689]:=5171;
v[690]:=5179;
v[691]:=5189;
v[692]:=5197;
v[693]:=5209;
v[694]:=5227;
v[695]:=5231;
v[696]:=5233;
v[697]:=5237;
v[698]:=5261;
v[699]:=5273;
v[700]:=5279;
v[701]:=5281;
v[702]:=5297;
v[703]:=5303;
v[704]:=5309;
v[705]:=5323;
v[706]:=5333;
v[707]:=5347;
v[708]:=5351;
v[709]:=5381;
v[710]:=5387;
v[711]:=5393;
v[712]:=5399;
v[713]:=5407;
v[714]:=5413;
v[715]:=5417;
v[716]:=5419;
v[717]:=5431;
v[718]:=5437;
v[719]:=5441;
v[720]:=5443;
v[721]:=5449;
v[722]:=5471;
v[723]:=5477;
v[724]:=5479;
v[725]:=5483;
v[726]:=5501;
v[727]:=5503;
v[728]:=5507;
v[729]:=5519;
v[730]:=5521;
v[731]:=5527;
v[732]:=5531;
v[733]:=5557;
v[734]:=5563;
v[735]:=5569;
v[736]:=5573;
v[737]:=5581;
v[738]:=5591;
v[739]:=5623;
v[740]:=5639;
v[741]:=5641;
v[742]:=5647;
v[743]:=5651;
v[744]:=5653;
v[745]:=5657;
v[746]:=5659;
v[747]:=5669;
v[748]:=5683;
v[749]:=5689;
v[750]:=5693;
v[751]:=5701;
v[752]:=5711;
v[753]:=5717;
v[754]:=5737;
v[755]:=5741;
v[756]:=5743;
v[757]:=5749;
v[758]:=5779;
v[759]:=5783;
v[760]:=5791;
v[761]:=5801;
v[762]:=5807;
v[763]:=5813;
v[764]:=5821;
v[765]:=5827;
v[766]:=5839;
v[767]:=5843;
v[768]:=5849;
v[769]:=5851;
v[770]:=5857;
v[771]:=5861;
v[772]:=5867;
v[773]:=5869;
v[774]:=5879;
v[775]:=5881;
v[776]:=5897;
v[777]:=5903;
v[778]:=5923;
v[779]:=5927;
v[780]:=5939;
v[781]:=5953;
v[782]:=5981;
v[783]:=5987;
v[784]:=6007;
v[785]:=6011;
v[786]:=6029;
v[787]:=6037;
v[788]:=6043;
v[789]:=6047;
v[790]:=6053;
v[791]:=6067;
v[792]:=6073;
v[793]:=6079;
v[794]:=6089;
v[795]:=6091;
v[796]:=6101;
v[797]:=6113;
v[798]:=6121;
v[799]:=6131;
v[800]:=6133;
v[801]:=6143;
v[802]:=6151;
v[803]:=6163;
v[804]:=6173;
v[805]:=6197;
v[806]:=6199;
v[807]:=6203;
v[808]:=6211;
v[809]:=6217;
v[810]:=6221;
v[811]:=6229;
v[812]:=6247;
v[813]:=6257;
v[814]:=6263;
v[815]:=6269;
v[816]:=6271;
v[817]:=6277;
v[818]:=6287;
v[819]:=6299;
v[820]:=6301;
v[821]:=6311;
v[822]:=6317;
v[823]:=6323;
v[824]:=6329;
v[825]:=6337;
v[826]:=6343;
v[827]:=6353;
v[828]:=6359;
v[829]:=6361;
v[830]:=6367;
v[831]:=6373;
v[832]:=6379;
v[833]:=6389;
v[834]:=6397;
v[835]:=6421;
v[836]:=6427;
v[837]:=6449;
v[838]:=6451;
v[839]:=6469;
v[840]:=6473;
v[841]:=6481;
v[842]:=6491;
v[843]:=6521;
v[844]:=6529;
v[845]:=6547;
v[846]:=6551;
v[847]:=6553;
v[848]:=6563;
v[849]:=6569;
v[850]:=6571;
v[851]:=6577;
v[852]:=6581;
v[853]:=6599;
v[854]:=6607;
v[855]:=6619;
v[856]:=6637;
v[857]:=6653;
v[858]:=6659;
v[859]:=6661;
v[860]:=6673;
v[861]:=6679;
v[862]:=6689;
v[863]:=6691;
v[864]:=6701;
v[865]:=6703;
v[866]:=6709;
v[867]:=6719;
v[868]:=6733;
v[869]:=6737;
v[870]:=6761;
v[871]:=6763;
v[872]:=6779;
v[873]:=6781;
v[874]:=6791;
v[875]:=6793;
v[876]:=6803;
v[877]:=6823;
v[878]:=6827;
v[879]:=6829;
v[880]:=6833;
v[881]:=6841;
v[882]:=6857;
v[883]:=6863;
v[884]:=6869;
v[885]:=6871;
v[886]:=6883;
v[887]:=6899;
v[888]:=6907;
v[889]:=6911;
v[890]:=6917;
v[891]:=6947;
v[892]:=6949;
v[893]:=6959;
v[894]:=6961;
v[895]:=6967;
v[896]:=6971;
v[897]:=6977;
v[898]:=6983;
v[899]:=6991;
v[900]:=6997;
v[901]:=7001;
v[902]:=7013;
v[903]:=7019;
v[904]:=7027;
v[905]:=7039;
v[906]:=7043;
v[907]:=7057;
v[908]:=7069;
v[909]:=7079;
v[910]:=7103;
v[911]:=7109;
v[912]:=7121;
v[913]:=7127;
v[914]:=7129;
v[915]:=7151;
v[916]:=7159;
v[917]:=7177;
v[918]:=7187;
v[919]:=7193;
v[920]:=7207;
v[921]:=7211;
v[922]:=7213;
v[923]:=7219;
v[924]:=7229;
v[925]:=7237;
v[926]:=7243;
v[927]:=7247;
v[928]:=7253;
v[929]:=7283;
v[930]:=7297;
v[931]:=7307;
v[932]:=7309;
v[933]:=7321;
v[934]:=7331;
v[935]:=7333;
v[936]:=7349;
v[937]:=7351;
v[938]:=7369;
v[939]:=7393;
v[940]:=7411;
v[941]:=7417;
v[942]:=7433;
v[943]:=7451;
v[944]:=7457;
v[945]:=7459;
v[946]:=7477;
v[947]:=7481;
v[948]:=7487;
v[949]:=7489;
v[950]:=7499;
v[951]:=7507;
v[952]:=7517;
v[953]:=7523;
v[954]:=7529;
v[955]:=7537;
v[956]:=7541;
v[957]:=7547;
v[958]:=7549;
v[959]:=7559;
v[960]:=7561;
v[961]:=7573;
v[962]:=7577;
v[963]:=7583;
v[964]:=7589;
v[965]:=7591;
v[966]:=7603;
v[967]:=7607;
v[968]:=7621;
v[969]:=7639;
v[970]:=7643;
v[971]:=7649;
v[972]:=7669;
v[973]:=7673;
v[974]:=7681;
v[975]:=7687;
v[976]:=7691;
v[977]:=7699;
v[978]:=7703;
v[979]:=7717;
v[980]:=7723;
v[981]:=7727;
v[982]:=7741;
v[983]:=7753;
v[984]:=7757;
v[985]:=7759;
v[986]:=7789;
v[987]:=7793;
v[988]:=7817;
v[989]:=7823;
v[990]:=7829;
v[991]:=7841;
v[992]:=7853;
For i:=1 to n-1 do begin
For j:=i+1 to n do begin
If ired(i,j,v)=0 then s:=s+2;
end;
end;
write(f2,s);
close(f1);
close(f2);
end.