Напишите рекурсивную функцию, которая вычисляет НОД двух натуральных чисел, используя модифицированный алгоритм Евклида. Пример: Введите два натуральных числа: 7006652 112307574 НОД(7006652,112307574)=1234. Помогите пожалуйста
Напишите рекурсивную функцию, которая вычисляет НОД двух натуральных чисел, используя модифицированный алгоритм Евклида.
Пример:
Введите два натуральных числа:
7006652 112307574
НОД(7006652,112307574)=1234.
Помогите пожалуйста
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.2, сборка 1385 от 14.02.2017
function Nod(a,b:integer):integer;
begin
if b=0 then Result:=a
else Result:=Nod(b,a mod b)
end;
begin
var a,b:integer; Read(a,b);
Writeln(Nod(a,b))
end.
Не нашли ответ?
Похожие вопросы