Рассмотрим вариант решения задания из учебника Босова, Аквилянов 9 класс, Просвещение: 3.197. Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 3 и оканчивающихся на 2. Программа получает на вход количество чисел в последовательности, а затем – сами числа. Количество чисел не превышает 1000. Программа должна вывести одно число: количество чисел, кратных 3 и оканчивающихся на 2. program z_197; var n, a, k: integer; begin write('Введи количество чисел > '); readln(n); k := 0; repeat writeln('Введи число > '); readln(a); if (a mod 3 = 0) and (a mod 10 = 2) then k := k + 1; n := n - 1 until n = 0; writeln('Количество чисел кратных 3 и оканчивающихся на 2 > ', k) end.
