Сколько натуральных чисел удовлетворяет неравенству 316(8)< x < DE(16)

15

Внимание: подразумевалось, что указанное вами число 3168 это некорректно указанное число 316₈ (8 - основание исходной с/с). В ином случае решений неравенства нет.

Объяснение:

316₈ < x < DE₁₆

Переведем все числа в 10 с/с

DE₁₆ = 13 * 16 + 14 = 222₁₀

316₈ = 3*64 + 1*8 + 6 = 206₁₀

206 < x < 222

x ∈ (206, 222)

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

(222-206)-1 = 16 - 1 = 15

program n1;   const n=10;   var  mas: array[1..n] of integer;   i: integer;   max,min,sum: integer;   ar: real;   begin    for i: =1 to n dobegin  mas[i]: = random (20)-10;   write(mas[i],' ');   writeln  end;   max: =1;     for i: =2 to n do    if mas[i]> mas[max] then    max: =i;     writeln;     writeln('максимаьное значение a[',max,']= ',mas[max]);       min: =1;   for i: =2 to n do    if mas[i]< mas[min] then    min: =i;     writeln;     writeln(минимальное значение a[',min,']= ',mas[min]);       for i: =1 to n do    sum: =sum+mas[i];       ar: =sum/n;     writeln;     writeln('среднее арифметическое =  ',ar);     end.{немного нерационально но работает=)}

я бы сделал

program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end.