Question

Решите в Pascal ABC На вход программе подаются 4 целых числа, по модулю не превосходящие 10^6: m,n,k,l. Если остаток от деления m на n равен k или l, то выведите 1, в противном случае - любое другое число.Условный оператор использовать нельзя!

Answer 1

var m, n, k, l : longint;

begin

readln(m, n, k, l);

writeln(((m mod n) xor k) * ((m mod n) xor l) + 1);

end.

Работает программа следующим образом:

Если провести операцию XOR с двумя равными числами, то ответом будет 0.

Если остаток от деления равен k или l, то одна из скобок равна 0, что при умножении даст 0. Для выполнения условия задачи добавим 1.

Answer 2

Для решения этой задачи без использования условного оператора можно воспользоваться арифметическими выражениями. Мы знаем, что остаток от деления числа m на число n можно найти с помощью операции % (остаток от деления). Если остаток равен k или l, то результатом будет 1, иначе - любое другое число.

Вот как будет выглядеть решение на языке Pascal ABC:

pascalCopy code
Program ModuloCheck;

Var
  m, n, k, l: Integer;
  remainder: Integer;

Begin
  Read(m, n, k, l);

  // Вычисляем остаток от деления m на n
  remainder := m % n;

  // Проверяем, равен ли остаток k или l, и выводим результат
  Write(1 - Abs(remainder - k) div (remainder - k) - Abs(remainder - l) div (remainder - l));
End.

Обратите внимание, что в данном решении используется формула 1 - Abs(remainder - k) div (remainder - k) - Abs(remainder - l) div (remainder - l). Это выражение равно 1, если remainder равен k или l, иначе - 0. Мы применяем арифметические операции, чтобы получить именно такой результат без использования условного оператора.