KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
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.
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.