viết chương trình tính tổng 3 số a,b,c. Yêu cầu :a,b,c đc lấy từ tệp SONGUYEN.INP, kết quả đưa vào tệp KETQUA.OUT

0 bình luận về “viết chương trình tính tổng 3 số a,b,c. Yêu cầu :a,b,c đc lấy từ tệp SONGUYEN.INP, kết quả đưa vào tệp KETQUA.OUT”

1. uses crt;
   var f:text; a,b,c:longint;
   begin
      assign(f,’SONGUYEN.INP’);reset(f);
         readln(f,a,b,c);
      close(f);
      assign(f,’KETQUA.OUT’);rewrite(f);
         writeln(f,a+b+c);
      close(f);
   end.

   Bình luận

2. Const Fi=’SONGUYEN.INP’;
         Fo=’KETQUA.OUT’;
   Var f,g: text;
       a,b,c,s: longint;
   Begin
           Assign(f,Fi); Reset(f);
           Assign(g,Fo); Rewrite(g);
           Read(f,a,b,c);
           s:=a+b+c;
           Write(g,s);
           Close(f);
           Close(g);
   End.

   Bình luận