Задано натуральное число M. Найти все его простые делители — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
INPUT "vvedite chislo ", m
FOR i = 2 TO m \ 2
f = 0
FOR j = 2 TO i - 1
IF i MOD j = 0 THEN f = 1
NEXT
IF f = 0 THEN IF m MOD i = 0 THEN PRINT i
NEXT

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

Leave a Comment