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

Категория: Basic

2012-02-28 16:51:11

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

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

Поделиться:

Sample Code