Lập chương trình tính góc chung lớn nhất của 2 số nguyên dương M .N
2 câu trả lời
program UCLNAB;
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
while a<>b do
if a>b then a:=a-b
else b:=b-a;
write('UCLN cua 2 so tren la: ',a);
readln
end.
VAR
m,ninteger;
Function ucln(s1,s2:integer):integer;
Begin
if s1 mod s2=0 then ucln:=s2
else ucln:=ucln(s2,s1 mod s2);
End;
BEGIN
write('m=');readln(m);
write('n=');readln(n);
write(abs(ucln(m,n)));
readln;
END.
