Создать программу , которая принимает число N , и выводит сначала все четные до N, потом...

Question

Создать программу , которая принимает число N , и выводит сначала все четные до N, потом все нечетные до N.
input 10
output 2 4 6 8 10 1 3 5 7 9

Answer 1

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
  var n:=ReadInteger('n=') div 2;
  ((2.Step(2).Take(n))+(1.Step(2).Take(n))).Println
end.

Пример
n= 10
2 4 6 8 10 1 3 5 7 9

Answer 2

Вот так будет выглядеть решение на Pascal:

var n, i: integer;

begin
readln(n);
for i := 1 to n do begin
if i mod 2 = 0 then write(i, ' ')
end;
for i := 1 to n do begin
if i mod 2 <> 0 then write(i, ' ')
end;
end.

Comments

varn, i: integer;

begin
readln(n);
for i := 1 to n do
begin
if i mod 2 = 0 then write(i, ' ')
end;
for i := 1 to n do
begin
if i mod 2 <> 0 then write(i, ' ')
end;
end.

---

чёрт, хотела поправить форматирование, а тут отправка по enter)

---

Забыл подписать с++ :(