Tìm UCLN, BCNN
Xem PDF
Điểm:
800 (p)
Thời gian:
1.0s
Bộ nhớ:
1023M
Input:
bàn phím
Output:
màn hình
Cho hai số nguyên dương \(a\) và \(b\) (\(a, b \leq 2.000.000.000\)).
Yêu cầu: Hãy viết chương trình tìm ước chung lớn nhất (UCLN), bội chung nhỏ nhất (BCNN) của hai số \(a\) và \(b\).
Input
- Chứa số nguyên dương \(a\) và \(b\).
Output
- Chứa hai số UCLN, BCNN.
Example
Test 1
Input
6 8Output
2 24
Bình luận
var x,y,UCLN,BCNN,t:int64;
begin
readln(x,y);
BCNN:=x*y;
t:= y mod x;
While t <> 0 do
Begin
t:= x MOD y;
x:= y;
y:= t;
End;
ucln:=x;
BCNN:=BCNN div UCLN;
write(UCLN,' ',BCNN);
end.
(pascal)
9 bình luận nữa