Viết chương trình nhập vào hai số nguyên dương m,n tìm BCNN của m,n

0 bình luận về “Viết chương trình nhập vào hai số nguyên dương m,n tìm BCNN của m,n”

1. Program BTT;
   Uses crt;
   Var m,n: qword;

   Function BCNN(a,b: qword): qword;
   Begin
           BCNN:=a*b;
           While a<>b do
                   If a>b then a:=a-b
                   Else b:=b-a;
           BCNN:=BCNN div a;
   End;

   Begin
           Clrscr;
           Write(‘Nhap m: ‘); Readln(m);
           Write(‘Nhap n: ‘); Readln(n);

           Write(‘BCNN cua ‘,m,’ va ‘,n,’ la: ‘,BCNN(m,n));
           Readln
   End.

   Bình luận

2. uses crt;
   var m,n,b:longint;
   begin
   clrscr;
      write(‘Nhap m,n: ‘);readln(m,n);
      b:=n;
      while (b mod m<>0)or(b mod n<>0) do inc(b);
      writeln(‘BCNN(‘,m,’,’,n,’)= ‘,b);
   readln
   end.   

   Bình luận