составьте программу нахождения количество слов в предложении. Предложение состоит из слов, отделёный друг от друга одним пробелом, вводится склавиатуры
Uses crt; var s:string; i,k:integer; begin readln(s); s:=s+' '; for i:=1 to length(s) do if s=' ' then inc(k); writeln(k); end.