Доброго времени Суток!
Недавно мне задали лабу :
Найти наибольший общий делитель трех натуральных чисел,
использовать функции.
Подскажите пожалуйста алгоритм поиска.
Зараннее спасибо.
Program Example_11;
Var x, y: Integer;
Begin
Writeln('Введите два числа');
Readln(x,y); {вводим два целых числа}
Repeat
If x>y Then x:=x Mod y
Else y:=y Mod x;
Until (x=0) Or (y=0);
{до тех пор, пока одно из чисел не станет равно нулю}
Writeln('НОД=', x+y)); {вывод НОД - без условного оператора, так как одно из чисел обязательно равно нулю}
Readln;
End.