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