Найти все четные числа, которые не делятся на 6 в диапазоне от 0 до N. Вывести их на экран

Ответ

Автор - pusaxe

begin

readinteger('Введите N:').Range().Where(x -> (x mod 2 = 0) and (x mod 6 <> 0)).Print(',');

end.

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