var a, b: word;
Begin
Write('nhap a va b: '); readln(a, b);
While a<>b do
If a>b then a:=a-b else b:=b-a;
Write('UCLN: ', a);
Readln
End.
Program bai_tap;
Uses crt;
Var a,b: integer;
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;
writeln( ' UCLN = ', a);
readln
Giúp mình nha mình sẽ cho quà và thưởng
1.năm 791,khi nhà Đường mang quân sang đàn áp,phùng An đã làm gì? A)tiếp tục kháng chiến B)bỏ trốn sang nước khác C)phùng An ra hàng D)nhảy xuống biển tự tử
nhiệt kế thường dùng hoạt động được dựa trên hiện tượng gì ? kể tên một số loại nhiệt kế thường dùng và nêu 1 số công dụng của các nhiệt kế đo
Em hãy thiết kế thí nghiệm chứng minh sự nảy mầm của hạt có nhiệt độ thích hợp ?
trong mặt phẳng Oxy cho đường thẳng d1: x-2y + 3 = 0 và 2 điểm A(1;3) VÀ B(-2;4). Điểm M(x;y) ∈ d1 sao cho I$MA^{→}$ + $MB^{→}$I Đạt giá trị nhỏ nhất
Gi vĩ độ các đặc đểm cực Bắc, cực Nam.Kinh độ Đông , Tây phần đất liền Việt Nam.Những điểm nổi bật về vị trí Việt Nam . Về mặt Thiên Nhiên
câu 2: trình bày đặc điểm và cấu tạo và cách sinh sản của rêu
Vì sao cùng là thụ tinh ngoài mà ếch lại đẻ ít trứng hơn cá
Với giá trị nào của m thì mỗi phương trình sau có hai nghiệm phân biệt? Khi đó hãy tính nghiệm của phương trình theo m. a) 2x2+3x+m−1=0 hãy giải cực kì chi tiết từng chút một
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
