Viết CT Pascal tính ước chung lớn nhất của a và b. LƯU Ý sử dụng câu lệnh while do, for do và if then.

0 bình luận về “Viết CT Pascal tính ước chung lớn nhất của a và b. LƯU Ý sử dụng câu lệnh while do, for do và if then.”

1. Program UCLN;
   uses crt;
   var a,b,r:byte;
   begin
    clrscr;
    writeln(‘CHUONG TRINH TIM UCLN CUA HAI SO’);
    write(‘Nhap a: ‘);readln(a);
    write(‘Nhap b: ‘);readln(b);
    r:=a mod b;
    while r<> 0 do
    begin
    b:=r;
    a:=b;
    r:=a mod b;
    end;
    write(‘UCLN cua hai so la: ‘,b);
    readln
   end.

   chúc bn hc tốt # nguyễn thanh bảo kha

   Bình luận