Дано предложение. Определить, сколько слов в данном предложении.
Именно слов, а не символов. В pascal abc.

Спасибо большое

Если слова в предложении разделяются одним пробелом, то:var s:string; p,k:integer;beginwriteln('Введите предложение:');readln(s);s:=s+' ';k:=0;p:=pos(' ',s);while p<>0 do begin k:=k+1; delete(s,1,p); p:=pos(' ',s); end;writeln('k = ',k);end.Пример:Введите предложение:Определить, сколько слов в данном предложении.k = 6