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 ước chung lớn 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 ước chung lớn nhất của 2 số nguyê”

1. program UCLN;

   var f,g:text;

        a,b:integer;

   begin

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

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

         readln(f,a,b);

         while a<>b do

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

         write(g,a);

         close(f);  close(g);

   end.

   Bình luận