Напишите программку, которая в последовательности целых чисел определяет количество чётных чисел,

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

Задать свой вопрос
1 ответ

var num, count: integer;
begin

count :=0;
repeat

read(x);

if ((xmod2 = 0)and (xmod3 = 0)
count := count + 1;
until x0;
end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт