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".
program phuongt; uses crt; var a, b: integer; begin clrscr; write(‘Nhap a = ‘); readln(a); write(‘Nhap b = ‘); readln(b); while a<>b do begin if a>b then a:=a-b else b:=b-a; end; write(‘USCLN = ‘, a); readln end.
program phuongt;
uses crt;
var a, b: integer;
begin
clrscr;
write(‘Nhap a = ‘); readln(a);
write(‘Nhap b = ‘); readln(b);
while a<>b do
begin
if a>b then a:=a-b
else b:=b-a;
end;
write(‘USCLN = ‘, a);
readln
end.
program UCLN;
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 = ‘,a);
readln;
end.