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

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

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

Leave a Comment