12.05.2008, 15:54
общий
это ответ
Здравствуйте, Cobain!
Если без дополнительных проверок, т.е. условие строго выполняется:
1. Слова разделены только 1 пробелом.
2. В конце строки нет пробела.
То программа будет такая.
Приложение:
Program Poisk_slov;USES CRT;Var S : String; { Исходная строка } i : Byte; { Переменная цикла } k : Byte; { Переменная количества слов в строке }begin ClrScr; WriteLn(‘Vvedite slova cherez probel:‘); Read(S); { Вводим исходную строку } For i:= 1 to Length(S) do { В цикле перебираем по одному символу всю строку } if S[i]=‘ ‘ then k:=k+1 { Если очередной символ пробел, то увеличиваем счетчик k на 1 } k :=k+1; { Увеличиваем счетчик k на 1 для правильного счета } WriteLn(‘Всего в строке ‘,k,‘ слов‘);end.