Viết chương trình nhập vào một xâu ký tự, đếm xem trong xâu có bao nhiêu từ? ( từ là một dãy ký tự không chứa dấu cách. VD xâu:’Dich benh Covid 19′ có 4 từ)
Giúp em với ạ!!
Viết chương trình nhập vào một xâu ký tự, đếm xem trong xâu có bao nhiêu từ? ( từ là một dãy ký tự không chứa dấu cách. VD xâu:’Dich benh Covid 19′ có 4 từ)
Giúp em với ạ!!
var
st: string;
i,kq: integer;
begin
readln (st);
for i:= 1 to length (st) do if st[i] = ‘ ‘ then inc (kq);
writeln(kq+1);
readln;
end.
Program FNG;
Uses crt;
Var St: String;
i,d: longint;
Begin
Clrscr;
Write(‘Nhap St: ‘); Readln(St);
While St[1]=#32 do Delete(St,1,1);
While St[length(St)]=#32 do Delete(St,length(St),1);
While Pos(#32#32,St)<>0 do Delete(St,Pos(#32#32,St),1);
d:=0;
For i:=1 to n do
If St[i]=#32 do inc(d);
Write(d+1);
Readln
End.