Функция, вычисляющая наибольший общий делитель

Задача

Написать функцию, вычисляющую наибольший общий делитель.

Решение

 

Алгоритм решения задачи: 

Оформление алгоритмов вычисления наибольшего общего делителя в виде функций удобно, если в задаче требуется несколько или множество раз использовать данный алгоритм, по отношению к различным исходным данным.

Программа на языке Паскаль: 

 

var
    k, l, n: integer;
 
function nod (var a,b: integer): integer;
    var c: integer;
    begin
        repeat
            if a > b then
                a := a mod b
            else
                b := b mod a;
        until (a = 0) or (b = 0);
 
        nod := a + b;
    end;
 
begin
 
    writeln ('Введите два числа: ');
    readln (k, l);
 
    n := nod (k, l);
 
    writeln ('НОД = ', n);
 
readln
end.