Question

Помогите! Надо решить задачу в паскале На вход программе подаются два целых числа m и n, по модулю не превосходящие 10 в 6 степени. Если m делится на n или n делится на m, то требуется вывести 1, в противном случае - любое другое число

Answer 1

// PascalABC.NET 3.4, сборка 1766 от 25.08.2018

// Внимание! Если программа не работает, обновите версию!

begin

var (m, n) := ReadInteger2('Введите два целых числа:');

if (n mod m = 0) or (m mod n = 0) then Println(1)

else Println(0)

end.

Answer 2

Для решения данной задачи в Pascal, можно написать следующий код:

pascalCopy code
program CheckDivisibility;

var
  m, n: Integer;

begin
  // Ввод данных
  Write('Введите значение m: ');
  ReadLn(m);
  Write('Введите значение n: ');
  ReadLn(n);

  // Проверка деления и вывод результата
  if (m mod n = 0) or (n mod m = 0) then
    WriteLn('1')
  else
    WriteLn('Другое число');
end.

Программа запрашивает у пользователя два целых числа m и n. Затем она проверяет условия деления m на n или n на m с помощью оператора mod. Если хотя бы одно из условий выполнено, программа выводит "1", иначе - "Другое число".