1 2 3 4 5 6 7 8 9 10 11 12 13 | CLSINPUT "vvedite chislo ", nPRINT "prostye deliteli chisla"; nFOR i = 2 TO n - 1 k = n MOD i IF k = 0 THEN f = 0 FOR j = 2 TO i - 1 IF i MOD j = 0 THEN f = 1 NEXT IF f = 0 THEN PRINT i;END IFNEXT |