Помогите решить пожалуйста !!! Паскаль АВС

Помогите решить пожалуйста !!! Паскаль АВС

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

begin

 var n := ReadlnString.ToBigInteger;

 var Count := BigInteger(0);

 var Max := Biginteger(n);

 while n lt;gt; 1 do

 begin

   if n.IsEven then

   begin

     n := n div 2;

     Count += n

   end

   else

   begin

     n += 2 * n + 1;

     if Max lt; n then

       Max := n

   end

 end;

 Print(Count, Max);

end.

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


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

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

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

Войти на сайт