qbasic простые числа
 

на любое число прога выдает что оно простое
что не правильно?
******
Программа определяющая простое число или нет
CLS
INPUT n
i = 2
DO UNTIL ((n MOD i) = 0) OR (i = n): i = i + 1: LOOP
IF i = n THEN k = true else k=false
IF k = true THEN PRINT 1

Добавлено 16 часов назад
ну у меня цикл и выполняется пока остаток не равен нулю и прекрщается когда остаток стновится равен нулю