Упр.3.197 ГДЗ Сборник упражнений Босова 7-9 класс (Информатика)

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

Нужно просмотреть все числа последовательности и посчитать те, которые одновременно:

• кратны $$3$$;
• оканчиваются на $$2$$, то есть $$a \bmod 10 = 2$$.

Для этого заведём счётчик $$k$$, сначала равный $$0$$. Затем по очереди будем считывать числа и увеличивать счётчик, если число подходит по обоим условиям.

program z_197;
var
  n, a, k: integer;
begin
  readln(n);
  k := 0;
  repeat
    readln(a);
    if (a mod 3 = 0) and (a mod 10 = 2) then
      k := k + 1;
    n := n — 1;
  until n = 0;
  writeln(k);
end.

Программа выводит количество чисел, кратных $$3$$ и оканчивающихся на $$2$$.