求m、n的最大公约数 用流程图表示
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:数学作业 时间:2024/05/25 06:19:01
求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;
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;