Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

.Ввести с клавиатуры символьную строку и определить сколько в ней слов. Пример: Вася пошел гулять.---- Найдено 3 слова.

Ответ оставил Гость

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

Пример:
Введите строку
Вася пошел гулять.
Количество слов в строке = 3