1. 99
2. 5
3. 2
_____________________________________________________________
Var n,a,b,c,d,i:integer;
begin
write('n = '); readln(n);
write('A и B: '); readln(a,b);
write('C и D: '); readln(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,' ');
for i:=d+1 to n do write(i,' ');
end.
Пример:
n = 20
A и B: 5 10
C и D: 14 18
1 2 3 4 10 9 8 7 6 5 11 12 13 18 17 16 15 14 19 20
Телефон, запатентованный в США 1876 году, Александром Беллом, назывался «говорящий телеграф» . Трубка Белла служила по очереди и для передачи, и для приёма человеческой речи
Program abc;
const<span> arr: array [1..4] of array [1..4] of integer = ((1,2,3,4),(5,6,7,8),(9,10,11,12),(13,14,15,16));
</span>var<span> i, j: integer;
</span>begin
<span>
for i := 1 to 4 do
</span><span> begin</span><span>
for j := 1 to 4 do
</span><span> begin
</span><span> write(arr[i][j], ' ');
</span><span> end;
</span><span> writeln();
</span><span> end;</span>
<span> writeln();
</span><span>
for i := 1 to 4 do
</span><span>begin
</span><span> j := arr[2][i];
</span><span> arr[2][i] := arr[3][i];
</span><span> arr[3][i] := j;
</span><span> end;
</span><span> for i := 1 to 4 do
</span><span>begin
</span><span> for j := 1 to 4 do
</span><span> begin
</span><span> write(arr[i][j], ' ');
</span><span> end;</span><span>
writeln();
</span><span> end;
</span><span>end.</span>