怎样用计算机求M，N的最大公约数

来源：百度知道 编辑：UC知道 时间：2024/05/16 15:54:58
这是关于pascal语言的编程问题，我是一初学者希望得到大家的帮助

program jzy_lin(input,output);
var
m,n,g:integer;
function gcd(m,n:integer):integer;
begin
if n=0
then gcd:=m
else gcd:=gcd(n,m mod n)
end;
begin
write('please input "m": ');
readln(m);
write('please input "n": ');
readln(n);
g:=gcd(m,n);
writeln('m=',m,' , n=',n,' , gcd=',g)
end.

写pascal代码吗?

function gcd(m,n : longint): longint;
begin
if (n=0) then gcd:=m else gcd:=gcd(n,m mod n);
end;

这就是用递归实现辗转相除法.

使用软件的“帮助”菜单，查询“公约数”的求法。