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

Именно слов, а не символов. В pascal abc.

Если слова в предложении разделяются одним пробелом, то:

var s:string; p, k:integer;

begin

writeln ('Введите предложение:') ;

readln (s) ;

s:=s+' ';

k:=0;

p:=pos (' ', s) ;

while p0 do

begin

k:=k+1;

delete (s, 1, p) ;

p:=pos (' ', s) ;

end;

writeln ('k = ', k) ;

end.

Пример:

Введите предложение:

Определить, сколько слов в данном предложении.

k = 6