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

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

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

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

Для этого заведём счётчик $$k$$, сначала равный $$0$$. Если очередное число не равно нулю и удовлетворяет обоим условиям, увеличим счётчик на $$1$$. Когда встретится $$0$$, ввод закончится, и нужно вывести значение $$k$$.

var
  k, x: 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;
  writeln(k);
end.

Ответ: программа выше.