Để ghi một số nguyên chẵn vào trong 1 tệp thì câu lệnh phải như thế nào ạ?
1 câu trả lời
để ghi 1 số vào tệp ta có công thức:
write(<tên tệp>,<số cần viết>);
ví dụ:
program nhapso;
uses crt;
var f:text;
n:integer;
begin
clrscr;
write('Nhap so nguyen chan: '); readln(n);
Assign(f,'KQ.TXT'); rewrite(g);
write(f,n);
close(f);
end.
