Question

СРОЧНО! Напишите функцию,(через процедуру ) которая находит наибольший общий делитель двух натуральных чисел. Пример: Введите два натуральных числа: 7006652 112307574 НОД(7006652,112307574) = 1234.

Answer 1

Function gcd(a, b: longint): longint;
// Нахождение НОД
var
  i: longint;
begin
  while b <> 0 do
  begin
    a := a mod b;
    i := b; b := a; a := i
  end;
  gcd := a
end;

var
  a, b: longint;

begin
  Write('Введите два натуральных числа: '); Readln(a, b);
  Writeln('НОД(', a, ',', b, ')=', gcd(a, b))
end.

Тестовое решение:
Введите два натуральных числа: 7006652 112307574
НОД(7006652,112307574)=1234

Answer 2

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

pythonCopy code
def наибольший_общий_делитель(a, b):
    while b != 0:
        a, b = b, a % b
    return a

# Пример использования
число1 = 7006652
число2 = 112307574
результат = наибольший_общий_делитель(число1, число2)
print("НОД({}, {}) = {}".format(число1, число2, результат))

При выполнении этого кода, он выведет:

scssCopy code
НОД(7006652, 112307574) = 1234

Обратите внимание, что функция наибольший_общий_делитель(a, b) использует алгоритм Евклида для нахождения НОД. Он основан на том факте, что НОД(a, b) равен НОД(b, a % b), где "%" обозначает операцию взятия остатка от деления.