(Pascal) Нахождение наибольшего общего делителя
Ребят, помогите кто-нибудь пожалуйста. Составьте программу нахождения наибольшего общего делителя двух натуральных чисел.
Pascal
Pascal
здесь, все что касается НОД =). Далее в подразделе Delphi.
var a,b:longint;
function NOD(x,y:longint):longint;
begin
if x<>0 then NOD:= NOD(y mod x,x) else NOD:= y;
end;
function NOD(x,y:longint):longint;
begin
if x<>0 then NOD:= NOD(y mod x,x) else NOD:= y;
end;