(Tin Học 8 - Pascal cơ bản và nâng cao)

Question

Bạn hãy nhập từ bàn phím 2 số tự nhiên m,n và tìm USCLN của chúng?

Comments

USCLN là gì vậy?

---

Ước số chung lớn nhất

 

Answer 1

var m,n,UCLN,r:integer;

begin

readln(m,n);
r:= n mod m;
While t <> 0 do
      Begin
        r:= m MOD n;
        m:= n;
        n:= r;
      End;

UCLN:=x;
write('UCLN:', UCLN);

end.

Comments

Ở đây mình sẽ dùng kiểu dữ liệu cho biến là Word nha bạn! Tuy vậy nhưng mình rất cảm ơn bạn!