begin
readinteger('Введите N:').Range().Where(x -> (x mod 2 = 0) and (x mod 6 <> 0)).Print(',');
end.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
begin
readinteger('Введите N:').Range().Where(x -> (x mod 2 = 0) and (x mod 6 <> 0)).Print(',');
end.
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.