Question

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

Answer 1

DIM A(1000)

INPUT "Please, enter the number of sequence elements ", N

FOR I = 1 TO N

PRINT "Please, enter an integer number ", I

INPUT A(I)

NEXT

J = 0

FOR I = 1 TO N

J = J + 1 - SGN((ABS(A(I)) - 12) MOD 10)

NEXT

PRINT "The result is   ", J

Answer 2

Вот программа на QBasic, которая выполняет задачу, описанную в вашем вопросе: ```qbasic DECLARE FUNCTION IsMultipleOf3AndEndsWith2 (num AS INTEGER) AS INTEGER CLS ' Запрос количества чисел в последовательности INPUT "Введите количество чисел в последовательности: ", totalCount ' Инициализация счетчика count = 0 ' Цикл для ввода чисел и подсчета чисел, кратных 3 и оканчивающихся на 2 FOR i = 1 TO totalCount INPUT "Введите число #" + LTRIM$(STR$(i)) + ": ", number IF IsMultipleOf3AndEndsWith2(number) THEN count = count + 1 END IF NEXT i ' Вывод результата PRINT "Количество чисел, кратных 3 и оканчивающихся на 2: "; count END ' Функция для проверки, является ли число кратным 3 и оканчивается на 2 FUNCTION IsMultipleOf3AndEndsWith2 (num AS INTEGER) AS INTEGER IF (num MOD 3 = 0) AND (num MOD 10 = 2) THEN IsMultipleOf3AndEndsWith2 = -1 ELSE IsMultipleOf3AndEndsWith2 = 0 END IF END FUNCTION ``` Эта программа начинается с запроса количества чисел в последовательности. Затем она входит в цикл для ввода чисел и проверки, являются ли они кратными 3 и оканчиваются на 2. Если число соответствует этим условиям, счетчик увеличивается. По завершении цикла программа выводит количество чисел, кратных 3 и оканчивающихся на 2.