• Даны два натуральных числа n и m. Если одно из них делится на другое нацело, выведите 1, иначе выведите любое другое целое число.

    При решении этой задачи нельзя пользоваться условной инструкцией if и циклами.

    Входные данные
    Вводятся два натуральных числа n и m.

    Выходные данные
    Выведите ответ на задачу.

    Примеры
    входные данные
    2
    8
    выходные данные
    1
    входные данные
    8
    2
    выходные данные
    1

Ответы 1

  • // PascalABC.NET 3.1, сборка 1256 от 21.06.2016begin  var m,n:integer;  Write('Введите два натуральных числа через пробел: ');  Read(n,m);  Writeln(Ord((n mod m = 0) or (m mod n = 0)));end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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