Cho tệp INPUT.INP có chứa 3 nguyên tố a,b c. 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 3 số nguyên này

0 bình luận về “Cho tệp INPUT.INP có chứa 3 nguyên tố a,b c. 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 3 số nguyên này”

1. program nho_nhat;

   var f,g:text;

         a,b,c,min:integer;

   begin

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

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

         readln(f,a,b,c);

         min:=a;

         if b<min then min:=b;

         if c<min then min:=a;

         write(g,min);

         close(f);  close(g);

   end.

   Bình luận

2. program nho_nhat;

   var f,g:text;

         a,b,c,min:integer;

   begin

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

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

         readln(f,a,b,c);

         min:=a;

         if b<min then min:=b;

         if c<min then min:=a;

         write(g,min);

         close(f);  close(g);

   end.

   $#huhu$

   Bình luận