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
1 câu trả lờ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.
Câu hỏi trong lớp
Xem thêm
