Question

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

Answer 1

begin

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

end.

0cfa2508c5f611e8b90ef799ab8f1578.pas

a1f813f08ad16d638506566bb6dac9ff.pas

Answer 2

Да

Answer 3

Смотрите

Answer 4

Одна из этих задач

Answer 5

Можно скрин файлов?

Answer 6

var
i, N: integer;

begin
write('Введите N:');
read(N);
for i := 0 to N do
if((i mod 2 = 0) and (i mod 6 <> 0)) then
write(i, ' ');
end.