Cho tệp văn bản có tên XAU.INP có nhiều dòng.Hãy cho biết độ dài của mỗi dòng.Kết quả ghi ra tệp XAU.OUT Ví dụ XAU.INP XAU.OUT tin 3 ab ab 5 bien van cay minh dai rong the 30 lop 11 6
2 câu trả lời
program bai_giai;
var f,g:text;
s:string;
begin
Assign(f,'XAU.INP'); reset(f);
Assign(g,'XAU.OUT'); rewrite(g);
while not eof(f) do
begin
readln(f,s);
writeln(g,length(s));
end;
close(f); close(g);
end.
uses crt;
var f,f1:text; s:string;
begin
clrscr;
assign(f,'XAU.INP');reset(f);
assign(f1,'XAU.OUT');rewrite(f1);
while not(eof(f)) do
begin
readln(f,s);
writeln(f1,length(s));
end;
close(f1);
close(f);
end.
