Дан текст, слова в котором разделены хотя бы одним пробелом

21.01.2012, 15:07. **Показов** 1709. **Ответов** 1

Студворк — интернет-сервис помощи студентам

Дан текст, слова в котором разделены хотя бы одним пробелом. подсчитать кол-во слов в тексте.

Добавлено через 44 секунды
Как посчитать эти слова?

@Г.Р. · 21.01.2012, 18:46

Доходишь до пробела, потом идешь, пока не доходишь до нового пробела, увеличиваешь счетчик.

Pascal

var
 s:string;
 i,kol:longint;
begin
 readln(s);
 kol:=0;
 i:=1;
 while(i<=ord(s[0])) do{ord(s[0]) это количество введеных символов в строке}
 begin
  while(s[i]=' ')and(i<=ord(s[0])) do
   i:=i+1;
  while(s[i]<>' ')and(i<=ord(s[0])) do
   i:=i+1;
  kol:=kol+1;
 end;
 writeln(kol);
end.

Renat1993
		1
	Дан текст, слова в котором разделены хотя бы одним пробелом 21.01.2012, 15:07. Показов 1709. Ответов 1 Метки нет (Все метки) Дан текст, слова в котором разделены хотя бы одним пробелом. подсчитать кол-во слов в тексте. Добавлено через 44 секунды Как посчитать эти слова?

	21.01.2012, 18:46

Опции темы

Дан текст, слова в котором разделены хотя бы одним пробелом

Решение