Cho xâu họ tên HT .Viết chương trình đếm số từ trong xâu HT ,biết rằng xâu HT đã chuẩn hóa Yêu cầu : - xâu HT lấy từ tệp Hoten.Inp - số từ được lưu trong tệp tu.out Giups em vớiiii
1 câu trả lời
program bai_giai;
var f,g:text;
HT:string;
i,d:integer;
begin
Assign(f,'Hoten.inp'); reset(f);
Assign(g,'tu.out'); rewrite(g);
readln(f,HT);
d:=1;
for i:=2 to length(HT) do
if HT[i]=' ' then d:=d+1;
write(g,d);
close(f); close(g);
end.
Câu hỏi trong lớp
Xem thêm
