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

Задача

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

Подробный ответ

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

чётные, то есть $$x \bmod 2 = 0$$;
кратные $$3$$, то есть $$x \bmod 3 = 0$$.

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

program FF;
var
  x, k: integer;
begin
  k := 0;
  repeat
    read(x);
    if x <> 0 then
      if (x mod 2 = 0) and (x mod 3 = 0) then
        k := k + 1;
  until x = 0;
  write(k)
end.