Cho xâu S , viết chương trình đưa ra độ dài của xâu. Yêu cầu : Tệp xau.inp chứa 5 xâu S, mỗi xâu trên 1 dòng ; kết quả độ dài của xâu được lưu vào tệp Dodai.out , mỗi kết quả trên 1 dòng
GIÚP MÌNH VỚI
program bai_giai; var f,g:text; s:string; i:byte; begin Assign(f,'xau.inp'); reset(f); Assign(g,'Dodai.out'); rewrite(g); for i:=1 to 5 do begin readln(f,s); writeln(g,length(s)); end; close(f); close(g); end.