Question

Даны два натуральных числа n и m. Если одно из них делится на другое нацело, выведите 1, иначе выведите любое другое целое число. При решении этой задачи нельзя пользоваться условной инструкцией if и циклами. Входные данные Вводятся два натуральных числа n и m. Выходные данные Выведите ответ на задачу. Примеры входные данные 2 8 выходные данные 1 входные данные 8 2 выходные данные 1 Программа в Паскале!!!!!!!

Answer 1

Ответ:

program nnn;

var a,b,c: integer;

begin

read(a,b);

c:=((a div b)+(a mod b)*(b mod a)+(b div a))div((a div b)+(b div a));

writeln(c);

end.

Объяснение:

Answer 2

Для решения этой задачи без использования условной инструкции "if" и циклов, можно воспользоваться арифметическими операциями и математическими свойствами.

В Паскале можно написать следующую программу:

pascalCopy code
program DivisibilityCheck;

var
  n, m: Integer;

begin
  Readln(n, m);

  { Проверка условия деления без остатка }
  Write((n mod m) * (m mod n) + 1);
end.

Краткое объяснение работы программы:

• n mod m возвращает остаток от деления n на m. Если n делится на m нацело, остаток будет равен 0, иначе ненулевое число.
• m mod n возвращает остаток от деления m на n. Аналогично, если m делится на n нацело, остаток будет равен 0, иначе ненулевое число.
• При умножении двух ненулевых чисел получим ненулевое число, а при умножении на ноль - получим ноль.
• Чтобы избежать вывода нуля, прибавляем 1 к результату.

Таким образом, если хотя бы одно из чисел делится на другое нацело, программа выведет 1. Если ни одно из чисел не делится нацело на другое, программа выведет ненулевое число (в данном случае, это всегда будет 1).