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

Question

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

Answer 1

Function Nod(a,b:integer):integer;
begin
 if a>b then Nod:=Nod(a-b,b)
 else
   if a   else  Nod:=a; 
end;