Напишите программу на QBasic, которая в последовательности целых чисел определяет количество

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

Задать свой вопрос
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((Абс(A(I)) - 12) MOD 10)

NEXT

PRINT "The result is   ", J

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт