10進ベーッシクで素数

質問

３０００の最大素数を出すにはどうすればいいですか？

回答No.2

jo-zen

10進BASICの文法の詳細はわかりませんが、流れは以下のようにすればいいと思います。

INPUT　N　（ここではN=3000)
RN=INT(SQRT(N)）
PN=1
FOR I=3 TO RN STEP 2
IF MOD(N,I)=0 THEN
　　PN=I：N=N/I
NEXT I
PRINT PN

Iを３から２ずつステップしながら、NをIで割った余りが０ならPNをIに置き換える（ずっと割り切れければPNは初期値の１のまま）。最終的にPNが最大約数（素数）となると思いますが。

お礼

ありがとうございます。
さっそくやってみます。

回答No.1

kabaokaba

エラトステネスの篩を使う

補足

どのようにプログラムを組めばいいですか？