Question

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

Answer 1

Если слова в предложении разделяются одним пробелом, то:
var s:string; p,k:integer;
begin
writeln('Введите предложение:');
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

Answer 2

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