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

Ответ

Автор - Сорокин Степан

var num, count: integer; n
begin

count :=0; n
repeat

read(x);

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

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.