Cho tệp INPUT.INP có chứa 2 nguyên tố a,b. Viết chương trình đọc dữ liệu từ tệp INPUT.INP và ghi vào tệp OUTPUT. OUT bội chung nhỏ nhất của 2 số nguyê

0 bình luận về “Cho tệp INPUT.INP có chứa 2 nguyên tố a,b. Viết chương trình đọc dữ liệu từ tệp INPUT.INP và ghi vào tệp OUTPUT. OUT bội chung nhỏ nhất của 2 số nguyê”

1. program BCNN;

   var f,g:text;

        a,b,bc:integer;

   begin

         Assign(f,’INPUT.INP’);   reset(f);

         Assign(g,’OUTPUT.OUT’);   rewrite(g);

         readln(f,a,b);

         bc:=a*b;

         while a<>b do

               if a>b then a:=a-b else b:=b-a;

         bc:=bc div a;

         write(g,bc);

         close(f);  close(g);

   end.

   Bình luận