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 số nhỏ nhất của 2 số nguyên này

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 số nhỏ nhất của 2 số nguyên này”

1. program nho_nhat;

   var f,g:text;

         a,b:integer;

   begin

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

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

         readln(f,a,b);

         if a<b then write(g,a) else write(g,b);

         close(f);  close(g);

   end.

   $#huhu$

   Bình luận

2. program nho_nhat;

   var f,g:text;

         a,b:integer;

   begin

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

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

         readln(f,a,b);

         if a<b then write(g,a) else write(g,b);

         close(f);  close(g);

   end.

   Bình luận