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

Подсчитать количество слов в строке, если все слова разделены ровно одним пробелом. В начале и в конце строки пробелов нет. Паскаль

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

Var s:string; k:integer;
begin
writeln(Введите строку:);
readln(s);
s:=s+ ;
while pos( ,s)<>0 do
 begin
 k:=k+1;
 delete(s,1,pos( ,s));
 end;
writeln(k=,k);
end.

Пример:
Введите строку:
Подсчитать количество слов в строке
k=5