Question

Надо ввести в программе паскале два числа и программа определяет делются ли они на друг друга

Answer 1

Решение задачи для целых чисел:

program chisla;
 var a,b: integer;
begin
  write('a='); readln(a);
  write('b='); readln(b);
  if (a mod b =0) or (b mod a=0) 
   theh write('делятся')
    else write('не делятся')
end.

Answer 2

Я могу помочь вам с программированием на Паскале. Ваш вопрос можно перевести на английский язык так: "Answer in detail. You need to enter two numbers in the Pascal program and the program determines whether they are divisible by each other."

Для того, чтобы написать программу на Паскале, которая проверяет, делятся ли два числа друг на друга, вы можете использовать оператор модуля (%), который возвращает остаток от деления одного числа на другое. Если остаток равен нулю, то числа делятся друг на друга без остатка. Вот пример кода, который считывает два числа с клавиатуры и выводит сообщение, делятся ли они друг на друга или нет:

program Divisibility;
var
  a, b: integer;
begin
  write('Введите первое число: ');
  readln(a);
  write('Введите второе число: ');
  readln(b);
  if b <> 0 then // проверяем, что второе число не равно нулю, чтобы избежать ошибки деления на ноль
  begin
    if a mod b = 0 then // проверяем, что остаток от деления a на b равен нулю
      writeln('Числа ', a, ' и ', b, ' делятся друг на друга')
    else
      writeln('Числа ', a, ' и ', b, ' не делятся друг на друга');
  end
  else
    writeln('Нельзя делить на ноль');
end.

Вы можете найти больше информации о программировании на Паскале и операторе модуля в этих источниках: [Divisibility of numbers in pascal - Stack Overflow](https://stackoverflow.com/questions/41659892/divisibility-of-numbers-in-pascal), [Pascal Divisibility Tests - Mathematical Association of America](https://maa.org/press/periodicals/convergence/divisibility-tests-a-history-and-users-guide-pascal-divisibility-tests), [Program to print all the numbers divisible by 3 and 5 for a given number](https://www.geeksforgeeks.org/program-print-numbers-divisible-3-5-given-number/), [Write program which tells if a number is divisible by all the numbers from 2 to 9](https://math.stackexchange.com/questions/1983308/write-program-which-tells-if-a-number-is-divisible-by-all-the-numbers-from-2-to).

Надеюсь, это было полезно для вас. Если у вас есть еще вопросы, я рад помочь.