Question

Даны два числа. Найти их наибольший общий делитель. (Паскаль)

Answer 1

Var n, k, nod:integer;

begin
     readln(n, k);
     if (n > k) then
     begin
          nod:=k;
     end;
    
     if (n < k) then
     begin
          nod:=n
     end;
    
     if (n = k) then
     begin
          nod:=n;
     end;

     while(true) do
     begin
          if (k mod nod <> 0) then nod:=nod-1;
          if (n mod nod <> 0) then nod:=nod-1;

          if (k mod nod = 0) and (n mod nod = 0) then break;
     end;
    
     writeln('Наименьший общий делитель: ', nod);
end.

Answer 2

Конечно, вот пример программы на языке Pascal для нахождения наибольшего общего делителя (НОД) двух чисел:

program GreatestCommonDivisor;

// Функция для нахождения НОД
function GCD(a, b: integer): integer;
var
    temp: integer;
begin
    while b <> 0 do
    begin
        temp := b;
        b := a mod b;
        a := temp;
    end;
    GCD := a;
end;

var
    num1, num2, result: integer;
begin
    // Ввод чисел, для которых нужно найти НОД
    writeln('Введите два числа:');
    readln(num1, num2);

// Вызов функции для нахождения НОД
    result := GCD(num1, num2);

// Вывод результата
    writeln('Наибольший общий делитель чисел ', num1, ' и ', num2, ' равен ', result);
end.

Эта программа использует метод Евклида для вычисления НОД двух чисел. Функция `GCD` принимает два целых числа и возвращает их наибольший общий делитель. Основная часть программы запрашивает у пользователя два числа, затем вызывает функцию `GCD` и выводит результат на экран.

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