Найти в последовательности минимальное натуральное число, кратное 7 - QBasic

Узнай цену своей работы

Формулировка задачи:

Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, делящееся на 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, далящееся нацело на 7. Количество чисел не превышает 1000. Введенные числа не превышают 30000. Программа должна вывести одно число - минимальное число, делящееся нацело на 7. В QBasic не силен, на C++ решение сделал, но не знаю как его перевести в QBasic. Код на плюсах:

Решение задачи: «Найти в последовательности минимальное натуральное число, кратное 7»

textual
Листинг программы
CLS
RANDOMIZE TIMER
DIM N AS INTEGER
 
DO
   INPUT "kol = "; kol
LOOP UNTIL kol <= 1000
 
N = 7777
min = 30000
 
FOR i = 1 TO kol
   IF N MOD 7 = 0 THEN
      
      IF min > N THEN
         min = N
      END IF
   END IF
 
   N = 1 + INT(30000 * RND)
NEXT
 
PRINT "MIN ="; min

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

  1. Объединение чисел в последовательность, представлено в цикле от 1 до kol, где kol - количество чисел, вводимых пользователем.
  2. Проверка на делимость числа N на 7 в условии IF N MOD 7 = 0.
  3. Если число N кратно 7 и при этом меньше или равно минимальному числу min, то оно заменяет min.
  4. После проверки всех чисел в цикле, выводится минимальное число, кратное 7.

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

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