Задано натуральное число 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
автор: кот Бегемот
Поделиться: