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".
uses crt; var a, b, sd, UC: integer; begin clrscr; write (‘nhap a: ‘); readln (a); write (‘nhap b: ‘); readln (b); while (b<>0) do begin sd:=a mod b; a:=b; b:=sd; end; writeln; UC:=a; writeln (‘ucln cua a va b la: ‘,UC); readln; end.
uses crt;
var a, b, x, y, sd, UC: integer;
begin
clrscr;
write (‘nhap a: ‘); readln (a);
write (‘nhap b: ‘); readln (b);
x:=a;
y:=b;
while (b<>0) do
begin
sd:=a mod b;
a:=b;
b:=sd;
end;
writeln;
UC:=a;
writeln (‘ucln cua ‘,x,’ va ‘,y,’ la: ‘,UC);
readln;
end.
uses crt;
var a, b, sd, UC: integer;
begin
clrscr;
write (‘nhap a: ‘); readln (a);
write (‘nhap b: ‘); readln (b);
while (b<>0) do
begin
sd:=a mod b;
a:=b;
b:=sd;
end;
writeln;
UC:=a;
writeln (‘ucln cua a va b la: ‘,UC);
readln;
end.