Question

Ввести с клавиатуры 2 целых числа: m и n. Если m делится на n или n делится на m, то вывести 1, в противном случае — любое другое число. Напишите программу в Паскаль.

Answer 1

Var
m, n: integer;
begin
readln(m, n);
if (m mod n = 0) or (n mod m = 0) then
writeln(1)
else
begin
randomize;
writeln(random(50));
end;
end.

Answer 2

Программа на Паскаль для решения поставленной задачи может выглядеть следующим образом:

program CheckDivisibility;
var
  m, n: integer;
begin
  writeln('Введите два целых числа:');
  readln(m, n);
  
  if (m mod n = 0) or (n mod m = 0) then
    writeln('1')
  else
    writeln('0');
end.

В данной программе мы сначала объявляем две переменные `m` и `n`, которые будут хранить введенные с клавиатуры числа. Затем выводим сообщение с просьбой ввести два целых числа.

С помощью процедуры `readln` считываем значения `m` и `n` с клавиатуры.

Затем с помощью условного оператора `if` проверяем, делится ли `m` на `n` или `n` на `m`. Если условие истинно, то выводим на экран число `1`, иначе выводим любое другое число (в данном случае `0`).

В конце программы стоит ключевое слово `end.`, обозначающее конец программы.

После написания программы ее можно скомпилировать и запустить в среде разработки Pascal, чтобы протестировать ее работу.