Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
dinhnguyentuhuy

Viết chương trình pascal tìm ước chung lớn nhất và bội chung nhỏ nhất của hai số a và b được nhập từ bàn phím  Làm giúp với !

Nguyễn Lê Phước Thịnh
13 tháng 12 2020 lúc 17:09

uses crt;

var a,b,ucln,bcnn,i:integer;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

ucln:=1;

if a<b then begin

                        for i:=1 to a do

                           if (a mod i=0) and (b mod i=0) then                                             begin

                                     if ucln<i then ucln:=i;            

                               end;    

                   end else begin

              for i:=1 to b do

                  if (a mod i=0) and (b mod i=0) then

                      begin

                           if ucln<i then ucln:=i;

                      end;      

       end;

bcnn:=a*b;

for i:=a*b-1 downto 1 do  

   if (i mod a=0) and (i mod b=0) then      

       begin

             if bcnn>i then bcnn:=i;      

       end;

writeln('Uoc chung lon nhat la: ',ucln); 

writeln('Boi chung nho nhat la: ',bcnn);

readln;

end.


Các câu hỏi tương tự
dinhnguyentuhuy
Xem chi tiết
khonopro
Xem chi tiết
haizzz!!
Xem chi tiết
phamthiminhanh
Xem chi tiết
Nguyễn Linh
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
Hoài Right
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết