Определить ,является ли заданное натуральное число простым- QBasic(Бейсик)

disel
1
2
3
4
5
6
CLS
INPUT "vvedite chislo"; s
FOR i = 1 TO s
    IF s MOD i = 0 THEN k = k + 1
NEXT
IF k = 2 THEN PRINT "prostoe" ELSE PRINT "net"

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment