Определите наибольший общий делитель (НОД) чисел a=315 и b=175 вычисляемый ниже представленной программой с рекурсивной функцией, использующей алгоритм Эвклида: var a, b, nod: integer; function gcd(m, n: integer): integer; var ost: integer; begin ost := m mod n; if ost = 0 then gcd := n else gcd := gcd (n, ost) end; begin write('Введите два числа: '); readln(a, b); nod := gcd(a, b); writeln('НОД: ', nod); readln end.
Задание

Определите наибольший общий делитель \(НОД\) чисел a=315 и b=175 вычисляемый ниже представленной программой с рекурсивной функцией, использующей алгоритм Эвклида:

var a, b, nod: integer;

function gcd\(m, n: integer\): integer;
var ost: integer;
begin
ost := m mod n;
if ost = 0 then
gcd := n
else
gcd := gcd \(n, ost\)
end;

begin
write\('Введите два числа: '\);
readln\(a, b\);
nod := gcd\(a, b\);
writeln\('НОД: ', nod\);
readln
end.