И не ставьте не правильных ответов

Відповідь:

1) 20; 2) 90; 3) 4; 4) 16; 5) 3; 6) 6

Пояснення:

1) = 1*8^2+5*8^1+7*8^0=1*64+8*5+7*1=64+40+7=111

=8*16^1+4*16^0=8*16+4*1=128+4=132

Натуральных чисел 111<X<132

132-111-1=20

2) =1*8^2+0*8^1+4*8^0=1*16+0+4*1=16+0+4=20

=6*16^1+15*16^0=96+15=111

Натуральных чисел 20<X<111

111-20-1=90

3) =1*8^2+1*8^1+3*8^0=1*64+1*8+3*1=64+8+3=75

=5*16^1+4*16^0=5*16+4*1=80+4=84

Натуральных чисел 75<X<80

80-75-1=4

4) =1*8^2+3*8^1+2*8^0=1*64+3*8+2*1=64+24+2=90

=6*16^1+11*16^0=6*16+11=107

Натуральных чисел 90<X<107

107-90-1=16

5) =5*16^1+3*16^0=5*16+3*1=80+3=83

=1*8^2+2*8^1+7*8^0=1*64+2*8+7*1=64+16+7=87

Натуральных чисел 83<X<87

87-83-1=3

6) =7*16^1+15*16^0=112+15=127

=2*8^2+0*8^1+6*8^0=2*64+0*8+6*1=128+0+6=134

Натуральных чисел 127<X<134

134-127-1=6

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! procedure lt(p,q: array of integer; var r: boolean); begin   r: =p.zip(q,(i,j)-> i-j).all(t-> t< 0) end; begin   var a: =arrrandom(15,-50,10); print('a: '); a.println;   var b: =arrrandom(15,-10,50); print('b: '); b.println;   var less: boolean;   lt(a,b,less);   if less then begin       a.transform(t-> t*10); print('a: '); a.println;       b.transform(t-> t div 2); print('b: '); b.println       end   else writeln('векторы не менялись') end. примеры a: -1 -32 -32 6 -27 -19 -31 -24 -38 -7 -23 -20 -32 -32 2 b: -7 -8 4 -3 31 12 49 42 -9 3 -1 46 9 45 49 векторы не менялись a: -15 9 -43 -6 -27 -41 -37 4 -37 -22 -41 -34 -12 -5 -32 b: -1 21 -9 38 5 33 38 45 27 12 25 -7 40 38 9 a: -150 90 -430 -60 -270 -410 -370 40 -370 -220 -410 -340 -120 -50 -320 b: 0 10 -4 19 2 16 19 22 13 6 12 -3 20 19 4