Viết chương trình tìm ước chung lớn nhất của 2 số nguyên dương m. n
2 câu trả lời
Program bai_tap;
Uses crt;
Var m ,n: integer;
Begin
clrscr;
write ('Nhập m, n= ');
readln (m,n);
While m <> n do
if m >n then m:= m - n else n:= n - m;
writeln( ' UCLN = : ', m);
readln
End.
program UCLN;
uses crt;
var m,n:integer;
begin
clrscr;
write('Nhap m: '); readln(m);
write('Nhap n: '); readln(n);
while m<>n do
if m>n then m:=m-n else n:=n-m;
write('UCLN= ',m);
readln;
end.
