viết chương trình tìm ucln của 2 biến x và y

0 bình luận về “viết chương trình tìm ucln của 2 biến x và y”

1. 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.

   Bình luận

2. B1: nhập 2 biến x,y

   B2: Nếu x>y tráo đổi gía trị của x và y, chuyển đến bước 3 . Nếu y > x thì 2 số đã theo thứ tự có giá trị không giảm , chuyển đến bước 3

   B3: In ra kết qủa x, y và kết thúc thuật toán 

   Bình luận