Найти в последовательности минимальное натуральное число, кратное 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 до kol, где kol - количество чисел, вводимых пользователем.
- Проверка на делимость числа N на 7 в условии IF N MOD 7 = 0.
- Если число N кратно 7 и при этом меньше или равно минимальному числу min, то оно заменяет min.
- После проверки всех чисел в цикле, выводится минимальное число, кратное 7.