|
清川 育男 |
|
! ユークリッドの互除法により2数の最大公約数を求める
! 2数は、小数でもよい. FUNCTION gcd(a,b) IF b=0 THEN LET gcd=a ELSE LET gcd=gcd(b,MOD(a,b)) END IF END FUNCTION FOR A=1 TO 144 FOR B=1 TO 144 LET X=gcd(A,B) IF A*B/X=72 THEN FOR C=1 TO 144 LET X=gcd(B,C) IF B*C/X=144 THEN LET X=gcd(C,A) IF C*A/X=144 THEN PRINT A;B;C LET Z=Z+1 END IF END IF NEXT C END IF NEXT B NEXT A PRINT Z END |
|
広島市
7月2日（木） 14:28:12
34747 |