Определить, является ли последовательность строго возврастающей - QBasic
Формулировка задачи:
1) Дано натуральное число N. Получить все такие натуральные Q , что N делится на Q^2 и не делится на Q^3.
2)Дана последовательность из N целых чисел. Определить , является ли она строго возврастающей .
ну не понятно же
Решение задачи: «Определить, является ли последовательность строго возврастающей»
textual
Листинг программы
CLS INPUT n FOR i = 1 TO n IF (n MOD (i ^ 2)) = 0 AND (n MOD (i ^ 3)) <> 0 THEN f = 1: PRINT i NEXT IF f <> 1 THEN PRINT " takih chisel net"
Объяснение кода листинга программы
CLS
— очистка экранаINPUT n
— ввод числа nFOR i = 1 TO n
— цикл от 1 до nIF (n MOD (i ^ 2)) = 0 AND (n MOD (i ^ 3)) <> 0 THEN f = 1
— проверка является ли i строгим возврастом числа nPRINT i
— вывод значения i, если оно является строгим возврастом числа nNEXT
— переход к следующей итерации циклаIF f <> 1 THEN PRINT
takih chisel net`` — вывод сообщения, если число n не имеет строгих возврастов
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д