|
ゴンとも |
|
#34178
すみません少し変えて分割個数のプログラム OPTION ARITHMETIC RATIONAL LET kotae=0 FOR n=1 TO 201 for m=1 to 201 if n>m then goto 10 IF gcd(n,m)=1 THEN LET kotae=kotae+1 END IF 10 next m NEXT n PRINT kotae END 201を1000に変えても5秒ででました。 10000はまだでません。 |
|
豊川市
3月24日（火） 17:39:29
MAIL:fttnm528@ybb.ne.jp 34179 |