Определить, является ли последовательность строго возврастающей - 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 PRINTtakih chisel net`` — вывод сообщения, если число n не имеет строгих возврастов