Viết chương trình ghi dữ liệu vào tệp điểm tin txt với dữ liệu là điểm của bạn HAB

Question

cobexinhdep · Answer

var f:text;       d:extended; begin       assign(f,'tin.txt'); rewrite(f);       readln(f,d);       close(f); end.

thanhthuy · Answer

program oken; var f: text;     diem: real; begin     assign(f,'Nhap.txt'); reset(f);     read(f,diem);     close(f); end.