素数 2
以前プチコン3号で作った、ひたすら素数を言っていくゲームが面白かったので、@INITIALCLSDIMANS[101]FORI=1TO100ANS[I]=0NEXTIR=0@SOSUR=R+1PRINTRINPUT"つ目の素数=";AFORI=1TO100IFA==ANS[I]THENPRINT"それはもう言いました":GOTO@ENDNEXTIFORI=2TOA-1S=AMODIIFS==0THENPRINT"素数ではありません":GOTO@ENDNEXTIPRINT"素数です"ANS[R]=AGOTO@SOSU@ENDENDさらに改造してみた。コンピューターがひたすら素数か、素数でないかを判断する。CLSQ=0@SOSUQ=Q+1PRINT_Q;"は";WAIT100FORI=2TOQ-1S=QMOD...素数2
2022/12/17 13:11