Создать программу , которая принимает число N , и выводит сначала все четные до N, потом все нечетные до N. input 10 output 2 4 6 8 10 1 3 5 7 9
Создать программу , которая принимает число N , и выводит сначала все четные до N, потом все нечетные до N.
input 10
output 2 4 6 8 10 1 3 5 7 9
Гость
Ответ(ы) на вопрос:
ГостьВот так будет выглядеть решение на 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.
Гость// 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
Не нашли ответ?
Похожие вопросы