INPUT"vvedite chislo ",x
FOR i=2 TO x
IF x MOD i=0 THEN PRINT i;
NEXT
Похожие записи/страницы:
- Ввести число "Х" с клавиатуры, напечатать все делители числа "Х" - QBasic(Бейсик)
- Дано натуральное число n. Получить все простые делители этого числа - Basic(Бейсик)
- Дано натуральное число N, которое вводится с клавиатуры. Получить новое натуральное число, заменив все четные…
- Задано натуральное число M. Найти все его простые делители - Basic(Бейсик)
- Имеется четыре А,В,С,D произвольных числа. Правда ли что ни одно число не превышает 9 - Basic(Бейсик)
- Имеется массив A из N произвольных чисел A(N), среди которых есть положительные, отрицательные и равные нулю.…