Сколько натуральных чисел расположено в интервале

157^8< x < 84^16​

Переведем границы интервала в десятичную с.с.:

157_8=1\cdot8^2+5\cdot8^1+7\cdot8^0=64+40+7=111_{10}\\84_{16}=8\cdot16^1+4\cdot16^0=132_{10}

В интервале 111 < x < 132 расположено 20 натуральных чисел (132-111-1)

program xxx;   var a, b, min : integer; begin  write('введите число а=');  

    readln(a);

  min: =10;   while a < > 0 do      begin            b: = a mod 10;             if b < min then min: =b;             a: = a div 10      end;     writeln('минимальная цифра = ', min);   readlnend.

var

x,y: real;

begin

x: =-1;

while x< =1 do

begin

y: =x*x*x;

writeln(y);

x: =x+0.1;

end;

end.