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

Question

Информатика

Хаврония

31 октября, 20:59

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

+5

Ответы (1)

Знаете ответ на вопрос?

Артюня · Answer 1

Vara, b, f, count:integer; beginread (a) ; count:=0; for b:=1 to a do beginread (f) ; if (f mod 3=0) and (f mod 10=2) then count:=count+1; end; write (count) ; end.