Pascal【入门】两个自然数M和N的最大公约数和最小公倍数。

最新推荐文章于 2024-12-03 19:53:11 发布

原创最新推荐文章于 2024-12-03 19:53:11 发布 · 1.8k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

# 信息学奥林匹克竞赛pascal语言入门

本文提供了一段求两个整数最大公约数及最小公倍数的简单算法实现。输入两个整数后，程序通过迭代方式找到最大公约数，并据此计算出最小公倍数。

题目描述：

求两个整数M和N的最大公约数和最小公倍数。

输入：

输入一行，包括两个整数。

输出：

输出只有一行，最大公约数和最小公倍数，包括2个整数，中间空格分开。

样例输入：

45 60

样例输出：

15 180

代码实现：

var  n,m,i:longint;
begin
        readln(n,m);
        for i:=n downto 1 do
        if (n mod i=0) and (m mod i=0) then 
        begin 
            write(i,' '); 
            break; 
        end;
        n:=n div i; 
        m:=m div i;
        write(n*m*i);
end.