Question

Viết chương trình nhập vào 1 sâu bất kỳ và cho biết sâu có bao nhiêu từ ( mỗi từ là 1 dãy các ký tự khác ký tự trắng) Mong mọi người giúp mai em thi học kỳ rồi ạ

Answer 1

uses crt;

var st:string;

i,d,dem:integer;

begin

clrscr;

readln(st);

d:=length(st);

dem:=0;

for i:=1 to d do 

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

writeln(dem+1);

readln;

end.