Помогите пожалуйста дам 10 балов

Question

Помогите пожалуйста дам 10 балов

---

Answer 1

Решил с помощью переведения алгоритма на Паскаль

var

 a, b, i, c: integer;

begin

 a := 92;

 b := 63;

 i := 0;

 c := a + b;

 while i <= c do</p>

 begin

   i := i + 1;

   a := (a + 2) div 2;

   b := b div 2;

   c := a + b;

 end;

 writeln(i);

end.

ОТВЕТ: 6