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

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

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

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.