/*と最小公倍数 ソースコードは以下です。説明文に掲載できるように、<と>は使用していません。 */ function biggerthan(a,b) { if (min(a,b)==a and notEqual(a,b)==true) { return true; } else { return false; } } function notEqual(a,b) { if (a==b ) { return false; } else { return true; } } function GCD(a,b) { if (biggerthan(a,b)) { remaind = a; a = b; b = remaind; } while ( notEqual(b,0) ) { remaind = mod(a,b); a = b; b = remaind; } return a; } function NewLCM(oldLCM,NewData) { GCDtemp=GCD(oldLCM,NewData); ret=oldLCM*NewData/GCDtemp; return ret; } do { inputA=inputA1; inputB=inputB1; inputC=inputC1; inputD=inputD1; inputE=inputE1; inputF=inputF1; inputG=inputG1; inputH=inputH1; inputI=inputI1; inputJ=inputJ1; inputK=inputK1; println(inputA,inputB,inputC,inputD,inputE,inputF,inputG,inputH,inputI,inputJ,inputK,0,0); GCD0=inputA; LCM0=inputA; GCD1=GCD(GCD0,inputB); LCM1=NewLCM(LCM0,inputB); println(inputA,inputB,0,0,0,0,0,0,0,0,0,GCD1,LCM1); GCD2=GCD(GCD1,inputC); LCM2=NewLCM(LCM1,inputC); println(inputA,inputB,inputC,0,0,0,0,0,0,0,0,GCD2,LCM2); GCD3=GCD(GCD2,inputD); LCM3=NewLCM(LCM2,inputD); println(inputA,inputB,inputC,inputD,0,0,0,0,0,0,0,GCD3,LCM3); GCD4=GCD(GCD3,inputE); LCM4=NewLCM(LCM3,inputE); println(inputA,inputB,inputC,inputD,inputE,0,0,0,0,0,0,GCD4,LCM4); GCD5=GCD(GCD4,inputF); LCM5=NewLCM(LCM4,inputF); println(inputA,inputB,inputC,inputD,inputE,inputF,0,0,0,0,0,GCD5,LCM5); GCD6=GCD(GCD5,inputG); LCM6=NewLCM(LCM5,inputG); println(inputA,inputB,inputC,inputD,inputE,inputF,inputG,0,0,0,0,GCD6,LCM6); GCD7=GCD(GCD6,inputH); LCM7=NewLCM(LCM6,inputH); println(inputA,inputB,inputC,inputD,inputE,inputF,inputG,inputH,0,0,0,GCD7,LCM7); GCD8=GCD(GCD7,inputI); LCM8=NewLCM(LCM7,inputI); println(inputA,inputB,inputC,inputD,inputE,inputF,inputG,inputH,inputI,0,0,GCD8,LCM8); GCD9=GCD(GCD8,inputJ); LCM9=NewLCM(LCM8,inputJ); println(inputA,inputB,inputC,inputD,inputE,inputF,inputG,inputH,inputI,inputJ,0,GCD9,LCM9); GCD10=GCD(GCD9,inputK); LCM10=NewLCM(LCM9,inputK); println(inputA,inputB,inputC,inputD,inputE,inputF,inputG,inputH,inputI,inputJ,inputK,GCD10,LCM10); } while(false); |