用流程图求两个数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;
~如果你认可我的回答,请及时点击【采纳为满意回答】按钮~
~手机提问者在客户端右上角评价点【满意】即可。
~你的采纳是我前进的动力~~
O(∩_∩)O,记得好评和采纳,互相帮助
祝学习进步!
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;
~如果你认可我的回答,请及时点击【采纳为满意回答】按钮~
~手机提问者在客户端右上角评价点【满意】即可。
~你的采纳是我前进的动力~~
O(∩_∩)O,记得好评和采纳,互相帮助
祝学习进步!
追问
请确认收到满意答案后再选择采纳回答,知道官方不鼓励任何先采纳后。回答的行为
追答
我已经回答了啊
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询