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

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.

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

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

Для подсчёта используем счётчик $$k$$. Сначала он равен $$0$$. Затем в цикле читаем очередное число $$x$$. Если $$x = 0$$, ввод заканчивается. Если число не равно нулю и удовлетворяет обоим условиям, увеличиваем счётчик на 1.

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.

Ответ: программа выводит количество чётных чисел, кратных 3.