Эта программа позволяет находить количество слов в предложении, если слова разделены одним пробелом:
Var s:string;
i,k:integer;
Begin
writeln('Введите строку');
readln(s);
k:=0;
for i:=1 to length(s) do
begin
if s[i]=' ' then k:=k+1;
end;
writeln('Количество слов в предложении = ',k+1);
end.
А эта программа позволяет находить количество слов в предложении, если слова разделены одним или несколькими пробелами:
var s: string;
i, k: integer;
begin
k := 0;
writeln('Введите строку: ');
readln(s);
s:= ' ' + s;
for i:=1 to length(s)-1 do
if (s[i] = ' ') and (s[i+1] <> ' ') then k:=k+1;
writeln(k)
end.