Question

Дана последовательность натуральных чисел 1,2,3,...,N(1<=N<=1000). Необходимо сначала расположить в обратном порядке часть этой последовательности от элемента с номером А до элемента с номером В, а затем о С до D (А<В; С<D; 1<=A,B,C,D<=N).

Входные данные
вводятся натуральные числа N,A,B,C,D.

Выходные данные
требуется вывести полученную последовательность

Примеры
9 2 5 6 9

выходные данные
1 5 4 3 2 9 8 7 6


Помогите пожалуйста, очень срочно!!​

Answer 1

Ответ:

var i,n,a,b,c,d:integer;

begin

read (n,a,b,c,d);

for i:=1 to a-1 do write (i,' ');

for i:=b downto a do write (i,' ');

for i:=b+1 to c-1 do write (i,' ');

for i:=d downto c do write (i,' ');

if d <> n then for i:=d+1 to n do write (i,' ');

end.

Объяснение:

var i,n,a,b,c,d:integer;

begin

write ('n = ');

readln (n);

write ('a = ');

readln (a);

write ('b = ');

readln (b);

write ('c = ');

readln (c);

write ('d = ');

readln (d);

for i:=1 to a-1 do write (i,' ');

for i:=b downto a do write (i,' ');

for i:=b+1 to c-1 do write (i,' ');

for i:=d downto c do write (i,' ');

if d <> n then for i:=d+1 to n do write (i,' ');

end.