• Помогите! Паскаль. Исполнитель “Раздвоитель” преобразует натуральные числа. У него есть две команды: “Вычесть 1” и “Разделить на 2”, первая команда уменьшает число на 1, вторая команда уменьшает число в два раза, если оно чётное, иначе происходит ошибка.

Ответы 1

  • var a, b : integer;beginreadln(a, b);while a <> b dobeginif (a >= b * 2) and (a mod 2 = 0) thenbegina := round(a / 2);writeln(':2');endelsebegina := a - 1;writeln(-1);endend;end.
    • Автор:

      heidy
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years