ОМ
Ольга Маширова
примени эту прогу себе
{ сколько слов в предложении}
program str1;
uses crt;
var
i,k:integer;
s:string;
begin
clrscr;
write('Введите предложение не меньше чем из 2-х слов (--> '); readln(s);
k:=1;
for i:=length(s) downto 1 do begin
if (S [ I ] =' ')then inc(k);
end; writeln(k);
readln;
end.