hãy cho biết đoạn chương trình sau thực hiện công việc gì: while b<>0 do begin sd:=a mod b; a:=b; b:=sd; end;

Bởi

hãy cho biết đoạn chương trình sau thực hiện công việc gì:
while b<>0 do
begin
sd:=a mod b;
a:=b;
b:=sd;
end;

0 bình luận về “hãy cho biết đoạn chương trình sau thực hiện công việc gì: while b<>0 do begin sd:=a mod b; a:=b; b:=sd; end;”

  2. Đoạn chương trình thực hiện công việc tìm UCLN của a và b

    đoạn chương trình đầy đủ là:

    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

Viết một bình luận