求m、n的最大公约数 用流程图表示

题目

求m、n的最大公约数 用流程图表示

答案

function GetMaxYueShu(M,N:Integer):Integer;
begin
Result := 0;
for I:=Min(M,N)-1 downto 0 begin
if (I mod M=0)and(I mod N=0) then begin
Result := I;
Exit;
end
end;
end;