Question

viết chương trình ghi vào tệp DL.txt các số từ 1 đến 50

Answer 1

const fi='dl.txt';
var i:integer;
f:text;
begin
assign(f,fi); rewrite(f);
for i:=1 to 50 do
write(f,i,' ');
close(f);
end.