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

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

Задать свой вопрос
1 ответ

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


var


 a, b, i, c: integer;


begin


 a := 92;


 b := 63;


 i := 0;


 c := a + b;


 while i lt;= c do


 begin


   i := i + 1;


   a := (a + 2) div 2;


   b := b div 2;


   c := a + b;


 end;


 writeln(i);


end.



ОТВЕТ: 6


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт