Hãy viết chương trình nhập vào hai số nguyên a, b. Tính tổng của chúng và ghi kết quả vào tệp “D:\tong2so.txt”

0 bình luận về “Hãy viết chương trình nhập vào hai số nguyên a, b. Tính tổng của chúng và ghi kết quả vào tệp “D:\tong2so.txt””

1. program tongso;

   uses crt;

   var f:text;

         a,b:integer;

   begin

          clrscr;

          Assign(f,’D:\tong2so.txt’);       rewrite(f);

          write(‘Nhap a: ‘);   readln(a);

          write(‘Nhap b: ‘);   readln(b);

          write(f,a+b);

          close(f);

   end.

          

          

    

   Bình luận

2. program phuongt;
   uses crt;
    var a, b : integer;
        op: text;
   begin
           clrscr;
           assign(op, ‘D:\tong2so.txt’);
           rewrite(op);
           write(‘ a = ‘); readln(a);
           writeln(‘ b = ‘); readln(b);
           writeln(op, ‘ a = ‘, a);
           writeln(op, ‘ b = ‘, b);
           writeln(op, ‘ a + b = ‘, a+b);
           write(‘Mo file de xem ket qua’);
           close(op);
           readln
   end.

   Bình luận