Viết ct tính BCNN của 2 số(PASCAL)

0 bình luận về “Viết ct tính BCNN của 2 số(PASCAL)”

1. Program Hotboy ;

   Uses crt;

   var a,b,Ni,Nh: integer;

   begin

   Write(‘nhap so a’); readln(a);

   Write(‘nhap so b’); readln(b);

   Nh:=a*b;

   While a<>b do If a>b then a:=a-b else b:=b-a;

   Ni:=a;

   Nh:=Nh div Ni;

   Write(‘Boi chung nho nhat la’,Nh);

   Readln

   End.

   Bình luận

2. Program Boi chung nho nhat 

   Uses crt 

   Var m,n,BC,BCNN:integer;

   begin

   Write(‘Nhap vao 2 so nguyen duong m,n:’);

   Readln(m,n); BC:=m*n;

   While m<>n do

   if m>n then m:=m-n else n:=n-m;

   BCNN:=BC div m;

   Write(‘Boi chung nho nhat la:’,BCNN);

   Readln

   End.

   Bình luận