Напишите программу на qbasic, которая в последовательности - вопрос №1378244 от gfgfvfvfuelrjds 28.09.2021 05:01

Question

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

gfgfvfvfuelrjds · Answer

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...