Question

Напишите программу для решения следующей задачи: Даны натуральные числа m, n. Получить все кратные им числа, меньшие m*n. Сделать прошу в Pascal

Answer 1

Program pr1;
var i,m,n:integer;
begin
readln(m);
readln(n);
for i:=1 to m*n-1 do begin
if (i mod n = 0) and (i mod m = 0)
then
writeln(i)
end
end.

Answer 2

Конечно! Вот пример программы на языке Pascal, которая решает задачу:

pascalCopy code
program Multiples;

var
  m, n, product, i: Integer;

begin
  // Вводим значения m и n
  Write('Введите значение m: ');
  Readln(m);
  Write('Введите значение n: ');
  Readln(n);

  // Вычисляем произведение m и n
  product := m * n;

  // Выводим все кратные числа
  for i := 1 to product - 1 do
  begin
    if (i mod m = 0) and (i mod n = 0) then
      Writeln(i);
  end;
end.

В этой программе мы сначала запрашиваем у пользователя значения m и n, затем вычисляем их произведение product. Затем мы используем цикл for для перебора всех чисел от 1 до product - 1 и проверяем, является ли каждое число кратным и m, и n. Если число удовлетворяет этим условиям, оно выводится на экран.

Обратите внимание, что в Pascal оператором для вычисления остатка от деления является mod.