Viết chương trình nhập vào một xâu kí tự A. a- In xâu A ra màn hình. b- Cho biết có bao nhiêu từ trong xâu A. c- Nhập vào xâu kí tự B, cho biết xâu B xuất hiện bao nhiêu lần trong xâu A.
Viết chương trình nhập vào một xâu kí tự A. a- In xâu A ra màn hình. b- Cho biết có bao nhiêu từ trong xâu A. c- Nhập vào xâu kí tự B, cho biết xâu B xuất hiện bao nhiêu lần trong xâu A.
Var A,B: string;
i,d: longint;
Begin
Readln(A);
//Xuat xau A ra man hinh
Writeln(A);
//Chuan hoa xau
While A[1]=#32 do Delete(A,1,1);
While A[length(A)]=#32 do Delete(A,length(A),1);
While Pos(#32#32,A)<>0 do Delete(A,Pos(#32#32,A),1);
//Dem so tu
d:=1;
For i:=1 to length(A) do
If A[i]=#32 then inc(d);
Write(d);
Readln
End.
Câu C mình chưa làm được :<