viết chương trình tìm UCLN của 2 số a,b

0 bình luận về “viết chương trình tìm UCLN của 2 số a,b”

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

   Bình luận