Поделитесь своими знаниями, ответьте на вопрос:
Паскаль.напишите рекурсивную функцию, которая вычисляет нод двух натуральных чисел, используя модифицированный алгоритм евклида пример: введите два натуральных числа 7006652 112307574 нод (7006652, 112307574)=1234
var a,b:integer;
function f(a,b:integer):integer;
begin
if (a<>0) and (b<>0) then begin
if (a>b) then
a:=a mod b else
b:=b mod a;
f(a,b);
end else
writeln(abs(a-b));
end;
BEGIN
writeln('Введите 2 натуральных числа');
readln(a,b);
write('НОД(',a,',',b,') = ');
f(a,b);
end.