一道编程题目pascal:用辗转相除法求两数的最大公约数.

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/06 15:05:52
一道编程题目pascal:用辗转相除法求两数的最大公约数.

一道编程题目pascal:用辗转相除法求两数的最大公约数.
一道编程题目pascal:用辗转相除法求两数的最大公约数.

一道编程题目pascal:用辗转相除法求两数的最大公约数.
{
用辗转相除法求两数的最大公约数
Pascal源代码

  作者  yjf_victor
  2013年6月18日
}
program gcd(Input,Output);
var\x09m, n, r:Integer;
begin
\x09while not eof(Input) do
\x09\x09begin
\x09\x09\x09Readln(m, n);
\x09\x09\x09repeat
\x09\x09\x09\x09r := m mod n;
\x09\x09\x09\x09m := n;
\x09\x09\x09\x09n := r;
\x09\x09\x09until r = 0;
\x09\x09\x09Writeln(m);
\x09\x09end;
end.