Question

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

Answer 1

Ответ:

при х=2226

Объяснение:

Var

 x, a, b, i: integer;

begin

 a:=0; b:=1;

 i := 0;

 repeat begin

   inc(i);

   x := i;

   a:=0; b:=1;

   while (x mod 10) > 1 do begin

     a:=a+(x mod 10);

     b:=b*2;

     x:=x div 10;

   end;

  end;

 until (a=12) and (b=16);

 Writeln(Format('При x=%d    a=%d   b=%d', [i, a, b]));

end;

Answer 2

Давайте разберемся с этим алгоритмом шаг за шагом и найдем наименьшее число x, которое приводит к выводу 12, а затем 16.

Алгоритм в псевдокоде:

1. Считать значение x с клавиатуры.
2. Инициализировать переменные a и b со значениями 0 и 1 соответственно.
3. Пока остаток от деления x на 10 больше 1, выполнять следующие действия:
   • Добавить остаток от деления x на 10 к a.
   • Умножить b на 2.
   • Делить x на 10 (целочисленное деление).
4. Вывести значение a.
5. Вывести значение b.

Давайте теперь начнем с наименьшего значения x, при котором a равно 12, а затем увеличим его, чтобы получить a = 16.

1. Пусть x = 12. Алгоритм будет выполнять следующие действия:

   • a = 2 (12 mod 10)
   • b = 2 (1 * 2)
   • x = 1 (12 div 10) Печать a: 2 Печать b: 2 Мы не получаем a = 12.

2. Теперь пусть x = 120. Алгоритм:

   • a = 0 (120 mod 10)
   • b = 1 (1 * 2)
   • x = 12 (120 div 10)
   • a = 2 (12 mod 10)
   • b = 2 (2 * 2)
   • x = 1 (12 div 10) Печать a: 2 Печать b: 4 Мы также не получаем a = 12.

3. Пусть x = 11120. Алгоритм:

   • a = 0 (11120 mod 10)
   • b = 1 (1 * 2)
   • x = 1112 (11120 div 10)
   • a = 2 (1112 mod 10)
   • b = 2 (2 * 2)
   • x = 111 (1112 div 10)
   • a = 4 (111 mod 10)
   • b = 4 (4 * 2)
   • x = 11 (111 div 10)
   • a = 5 (11 mod 10)
   • b = 8 (8 * 2)
   • x = 1 (11 div 10) Печать a: 5 Печать b: 16

Таким образом, наименьшее значение x, при котором алгоритм сначала печатает 12, а затем 16, равно 11120.