Tin học Ước chung lớn nhất

[Junery N]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Nhập vào 2 số, hãy in ra ước chung lớn nhất của 2 số đó.

• Input Dòng đầu tiên ghi số (T) ((T \le 10000)) là số test. Sau đó là (T) test, mỗi test gồm 1 dòng ghi 2 số nguyên không âm (a) và (b) cách nhau bởi 1 dấu cách ((0 \le a, b \le 10^9), (a + b \neq 0)).
• Output Với mỗi test, in trên 1 dòng ước chung lớn nhất của 2 số (a) và (b).
• Sample Input

  5 1 3 2 6 4 12 8 12 3 5

  Output

  1 2 4 4 1

Thanks

 

[Nhật Hạ !]

File input:

5
1 3
2 6
4 12
8 12
3 5

Chương trình:

Var  f,g:text;
        r,a,b,t,i,bcnn,ucln: longint;
Begin
Assign(f,'Input.inp'); reset(f);
Assign(g,'output.out'); rewrite(g);
Readln(f,t);
For i:=1 to t do
        Begin
        readln(f,a,b);
        BCNN:=a*b;
        r:= b mod a;
        While r <> 0 do
                Begin
                r:= a MOD b;
                a:= b;
                b:= r;
                End;
        ucln:=a;
        BCNN:=BCNN div UCLN;
        writeln(g,ucln);
        End;
close(g);
Readln;
End.

file output:

1
2
4
4
1

 

[02-07-2019.]

File input:

5
1 3
2 6
4 12
8 12
3 5

Chương trình:

Var  f,g:text;
        r,a,b,t,i,bcnn,ucln: longint;
Begin
Assign(f,'Input.inp'); reset(f);
Assign(g,'output.out'); rewrite(g);
Readln(f,t);
For i:=1 to t do
        Begin
        readln(f,a,b);
        BCNN:=a*b;
        r:= b mod a;
        While r <> 0 do
                Begin
                r:= a MOD b;
                a:= b;
                b:= r;
                End;
        ucln:=a;
        BCNN:=BCNN div UCLN;
        writeln(g,ucln);
        End;
close(g);
Readln;
End.

file output:

1
2
4
4
1

Bạn này dùng ngôn ngữ C++ ạ.