Question

Даны числа a и b найти общие делители P.S. На Паскале

Answer 1

Var
 a, b, i: integer;

begin
  readln(a, b);
  for i:=1 to max(a, b) do
    if (a mod i = 0) AND (b mod i = 0) then
      write(i, ' ');
end.

Answer 2

Для нахождения общих делителей чисел a и b на языке программирования Pascal, вы можете воспользоваться следующим кодом:

pascalCopy code
program CommonDivisors;

var
  a, b, i, gcd: Integer;

begin
  Write('Введите число a: ');
  Readln(a);

  Write('Введите число b: ');
  Readln(b);

  gcd := 1; // Начинаем с наименьшего общего делителя, который всегда равен 1

  for i := 2 to Min(a, b) do
  begin
    if (a mod i = 0) and (b mod i = 0) then
      gcd := i; // Если i является делителем обоих чисел, обновляем gcd
  end;

  WriteLn('Общие делители чисел ', a, ' и ', b, ' : ', gcd);
end.

Этот код сначала запрашивает у пользователя ввод чисел a и b, затем использует цикл for для проверки всех чисел от 2 до минимума из a и b, чтобы найти наибольший общий делитель (НОД) этих двух чисел. НОД сохраняется в переменной gcd и выводится на экран.