Cánh Diều - GCD - Tìm ước chung lớn nhất hai số (T90)
Xem PDF
Điểm:
100
Thời gian:
1.0s
Bộ nhớ:
256M
Input:
bàn phím
Output:
màn hình
Cho hai số nguyên \(a, b\). Hãy tìm ước số chung lớn nhất của hai số \(a, b\).
Input
- Gồm một dòng ghi hai số nguyên \(a, b\) cách nhau bởi dấu cách \((|a|, |b|\leq 10^6)\).
Output
- Một số nguyên là ước số chung lớn nhất của hai số đã cho.
Example
Test 1
Input
8 12Output
4
Bình luận
uses crt;
Function GCD(a,b:int64):int64;
begin
while b<>0 do
begin
a:=a mod b;
a := a + b;
b := a - b;
a := a - b;
end;
GCD:=a;
end;
Function Abs(c:int64):int64;
begin
If c<0 then c:=0-c;
Abs:=c;
end;
Var a,b:int64;
begin
readln(a,b);
Writeln(Abs(GCD(a,b)));
readln
end.
-
rock
•
5:47 p.m. 25 Tháng 3, 2025
•
0
Phản hồi
Chia sẻ
7 bình luận nữalam pascal dai qua