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,x,y,z,m: real; BEGIN Clrscr; Writeln(‘Nhap so thu nhat ‘); readln(a); x:=a; Writeln(‘nhap so thu hai ‘); readln(b); y:=b; While (a<>b) do If a>b then a:=a-b else b:=b-a; z:=a; m:=(x*y)/z; Writeln(‘UCLN va BCNN ‘,x,’ va ‘,y,’ la Uoc so: ‘,z:4:2,’ Boi so: ‘,m:4:2); Readln; End.
Program Chuongtrinh;
Uses crt;
Var a, b,x,y,z,m: real;
BEGIN
Clrscr;
Writeln(‘Nhap so thu nhat ‘); readln(a);
x:=a;
Writeln(‘nhap so thu hai ‘); readln(b);
y:=b;
While (a<>b) do
If a>b then a:=a-b else b:=b-a;
z:=a;
m:=(x*y)/z;
Writeln(‘UCLN va BCNN ‘,x,’ va ‘,y,’ la Uoc so: ‘,z:4:2,’ Boi so: ‘,m:4:2);
Readln;
End.
Nếu không có số nào trong tập hợp thì không có số cao nhất.
Giả sử số đầu tiên trong tập hợp là số lớn nhất trong tập hợp.
Với mỗi số còn lại trong tập hợp: nếu số này lớn hơn số lớn nhất hiện tại thì coi số này là số lớn nhất trong tập hợp.
Khi không còn số nào trong tập hợp để lặp lại, hãy coi số lớn nhất hiện tại là số lớn nhất của tập hợp.