Question

[Linh Daxua]

viết chương trình vào 1 sâu S từ bàn phím. Đưa ra màn hình số từ có trong sâu

Answer 1

[Kiều Vũ Linh]

var st:string;

dem,i:integer;

begin

write('Nhap xau S = ');readln(st);

dem:=0;

for i:=1 to length(st) do

if st[i] = ' ' then dem:=dem+1;

dem:=dem+1;

write('So tu cua xau S la ',dem);

readln;

end.