Question

2. Укажите наибольшее и наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 7. var x, a, b : integer; begin readln(x); a := 0; b := 1; while x > 0 do begin a := a + 1; b := b + (x mod 6); x := x div 6; end; writeln(a); write(b); end.

Answer 1

Немного изменив ваш код я получил вот это:

var x, a, b : integer;
begin
  for var i:=0 to MaxInt do
    begin
      a := 0; b := 1;
      x:=i;
      while x > 0 do
        begin
          a := a + 1;
          b := b + (x mod 6);
          x := x div 6;
        end;
      If (a=3) and (b=7) then Println(a,b,i);
  end;
end.

Результат:
3 7 41 
3 7 46 
3 7 51 
3 7 56 
3 7 61 
3 7 66 
3 7 76 
3 7 81 
3 7 86 
3 7 91 
3 7 96 
3 7 111 
3 7 116 
3 7 121 
3 7 126 
3 7 146 
3 7 151 
3 7 156 
3 7 181 
3 7 186 

Судя с результата, ответ: Минимальное - 41, Максимальное - 186

Answer 2

Для нахождения наибольшего и наименьшего чисел, при которых алгоритм печатает сначала 3, а потом 7, мы можем использовать следующий подход.

Алгоритм будет печатать число 3, а затем 7, только если x делится на 6 в степени 3. Поэтому, наибольшее число, удовлетворяющее условию, будет самим числом 6 в степени 3 (6^3 = 216), а наименьшее будет на единицу меньше (215).

Таким образом, наибольшее число, при котором алгоритм выводит 3 и 7, - это 216, а наименьшее - 215.