Viết chương trình nhập vào 1 xâu. Hãy cho biết có bao nhiêu từ trong xâu.
2 câu trả lời
Program hotrotinhoc;
var s:string;
d: byte;
begin
readln(s);
d:=0;
for i:=1 to length(s) do
if s[i]='N' then
begin
inc(d);
s[i]:='*';
end;
writeln('So ki tu N trong xau la :',d);
write('Xu vua thay the la :',s);
readln
end.
uses crt;
var s:string; i,n:longint;
begin
clrscr;
write('Nhap 1 xau: ');readln(s);
s:=' '+s+' ';
for i:=2 to length(s) do
if (s[i]=' ')and(s[i-1]<>' ') then inc(n);
writeln(n);
readln
end.
