Задано натуральное число M. Найти все его простые делители

code: #basic
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

автор: кот Бегемот

Поделиться:

Похожие статьи: