Viết chương trình đọc một giá trị từ tệp D:\Dulieu.dat vào biến N và in ra màn hình

2 câu trả lời

Đáp án:

uses crt;

var f:text;

     N:longint;

begin

 clrscr;

 Assign(f,'D:\Dulieu.dat'); reset(f);

 readln(f,n);

 write(n);

 close(f); readln;

end.

` @Akira2007 `

uses crt;
var f:text; n:longint;
begin
clrscr;
   assign(f,'D:\Dulieu.dat');reset(f);
      readln(f,n); 
   close(f);
   writeln(n);
end.

Câu hỏi trong lớp Xem thêm