Viết chương trình tìm ước chung lớn nhất của 2 số nguyên dương m. n

Question

tuyetnhung · Answer

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.

giangnguyen · Answer

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.