Вот решение, но сайт его не примет, потому что там нет компилятора с этой версии языка Паскаль.
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x,y,z:integer; Read(x,y,z);
var d1:=abs(z-x); var d2:=abs(z-y);
Writeln(d1>d2?2:d1=d2?3:1)
end.
№8
6538 8-количество единиц
8356 8- количество тысяч
87 8 - количество десятков
831 8 - количество сотен
№9
111 - сто одиннадцать в 10сс
III- число в непозиционной римской системе счисления, = трём в 10сс
№10
5сс 0 1 2 3 4
7сс 0 1 2 3 4 5 6
12сс 0 1 2 3 4 5 6 7 8 9 A B
№11
10сс 2сс 5сс 8сс 16сс
1 1 1 1 1
2 10 2 2 2
3 11 3 3 3
4 100 4 4 4
5 101 10 5 5
6 110 11 6 6
7 111 12 7 7
8 1000 13 10 8
9 1001 14 11 9
10 1010 20 12 А
11 1011 21 13 В
12 1100 22 14 С
13 1101 23 15 D
14 1110 24 16 E
15 1111 30 17 F
16 10000 31 20 10
17 10001 32 21 11
18 10010 33 22 12
19 10011 34 23 13
20 10100 40 24 14
Var
a : array of integer;
n,i: integer;
begin
write('Введите кол-во элементов ');
read(n);
SetLength(a,n);
for i:=0 to Length(a)-1 do begin
write('Элемент ', i+1 ,' равен = ');
readln(a[i]);
end;
write('Правильный порядок ');
for i:=0 to Length(a)-1 do begin
write(a[i],' ');
end;
write('Обратный порядок ');
for i:=Length(a)-1 downto 0 do
begin
write(a[i],' ');
end;
end.