KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
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.
By Kaylee
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.
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.
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.
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.