410 問題 プログラム1 解答

【問題】Nが素数 (prime) であるか判定するプログラム

[プログラム1]

　　10  INPUT PROMPT "n=":N
　　20  FOR I=2 TO N-1
　　30      IF ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ THEN
　　40          PRINT N;"is not a prime."
　　50          GOTO 90
　　60      END IF
　　70  NEXT I
　　80  PRINT N;"is a prime."
　　90  END

[設問1]

　空欄を埋めてプログラム1を完成させて実行しなさい。ただし、30行目の空欄には「NがIで割り切れる。」という条件文が入ります。

[解答]

    10  INPUT PROMPT "n=":N
    20  FOR I=2 TO N-1
    30      IF N-I*INT(N/I)=0 THEN
    40          PRINT N;"is not a prime."
    50          GOTO 90
    60      END IF
    70  NEXT I
    80  PRINT N;"is a prime."
    90  END