Cho F là một tệp văn bản chứa các xâu 10 kí tự. Hãy viết chương trình nhập và biểu thị nội dung tệp đó lên màn hình, mỗi xâu một dòng.
2 câu trả lời
var s: string[10];
f: text;
Begin
Assign(f, 'input.inp'); reset(f);
While not eof(f) do
Begin
readln(f, s);
Writeln(s);
end;
Readln
End.
program bai_giai;
uses crt;
var f:text;
st:string[10];
begin
clrscr;
Assign(f,'dulieu.txt'); reset(f);
while not eof(f) do
begin
read(f,st);
writeln(st);
end;
close(f); readln;
end.
