Определить, является ли последовательность строго возврастающей - 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"

Объяснение кода листинга программы

  1. CLS — очистка экрана
  2. INPUT n — ввод числа n
  3. FOR i = 1 TO n — цикл от 1 до n
  4. IF (n MOD (i ^ 2)) = 0 AND (n MOD (i ^ 3)) <> 0 THEN f = 1 — проверка является ли i строгим возврастом числа n
  5. PRINT i — вывод значения i, если оно является строгим возврастом числа n
  6. NEXT — переход к следующей итерации цикла
  7. IF f <> 1 THEN PRINT takih chisel net`` — вывод сообщения, если число n не имеет строгих возврастов

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4 из 5
Похожие ответы