Viết phương trình đọc từ tệp văn bản KT15.TXT 2 số nguyên tính và in ra màn hình bội chung nhỏ nhất của 2 số

0 bình luận về “Viết phương trình đọc từ tệp văn bản KT15.TXT 2 số nguyên tính và in ra màn hình bội chung nhỏ nhất của 2 số”

1. uses crt;
   var d:text; a,b,i:longint;
   begin
   clrscr;
      assign(d,’input.pas’);reset(d);
         readln(d,a);
         readln(d,b);
      close(d);
      i:=a;
      while not((i mod a=0)and(i mod b=0)) do inc(i);
      writeln(‘Boi chung nho nhat:’,i);
   readln
   end.

   Mình dùng cách là tăng i cho đến khi tìm ra bội chung thì dừng nên đó chính là kết quả!!!

   Bình luận