Упр.197 ГДЗ Рабочая тетрадь Босова 9 класс (Информатика)

Ниже вариант решения задания из учебника Босова 9 класс, Бином:

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

program z_97;

var

n, a, k: integer;

begin

write(taskВведи количество чисел >task);

readln(n);

k := 0;

repeat

write(taskВведи число > task);

readln(a);

if (a mod 3 = 0) and (a mod 10 = 2) then k := k + 1;

n := n - 1

until n = 0;

Write(taskКоличество чисел > task, k)

end.