Viết chương trình nhập vào một câu cho biết câu đó có bao nhiêu từ?
2 câu trả lời
program dem_tu;
uses crt;
var st:string;
d,i:byte;
begin
clrscr;
write('Nhap xau: '); readln(st);
d:=1;
for i:=2 to length(st) do
if st[i]=' ' then d:=d+1;
write('Cau tren co ',d,' tu');
readln;
end.
program demtu;
uses crt;
var s:string;
d,i:word;
begin
clrscr;
write('Nhap xau: '); readln(s);
d:=1;
for i:=2 to length(s) do
if s[i]=' ' then d:=d+1;
write('Cau tren co ',d,' tu');
readln;
end.
