с заданием по информатике,вот условие
Дана последовательность натуральных чисел 1, 2, 3, ..., N (1 ≤ N ≤ 1000). Необходимо сначала расположить в обратном порядке часть этой последовательности от элемента с номером A до элемента с номером B, а затем от C до D (A < B; C < D; 1 ≤ A, B, C, D ≤ N).
А вот мой код,нужно дописать код программы,а то у меня не получается
var
x: array[1..1000]of integer;
i,n,a,b,c,d,k: integer;
begin
read(n,a,b,c,d);
for i := 1 to n do
x[i]:=i;
for i := 1 to n do
write(x[i],' ');
writeln;
n:=a+b+1;
for i:= a to n div 2-1 do
begin
k:=x[i];
x[i]:=x[b-i+1];
x[b-i+1]:=k
end;
for i := 1 to n do
write(x[i],' ');
end.
100
181
Ответы на вопрос:
Популярно: Информатика
-
алалайла28.03.2022 11:02
-
02032429.09.2021 18:33
-
koshuba201716.04.2020 05:43
-
chelokoshka0301.02.2023 16:38
-
Атэва17.11.2022 14:21
-
denisenkovaleri21.07.2020 13:02
-
ВолшебнаяПринцесса15.03.2020 03:10
-
kupcovaSvetl06.07.2022 04:05
-
mariamuraskina929.09.2022 22:51
-
Лол11лол01.07.2021 23:20