обработка символьных данных

[KIRILOW]

Не могу написать код
Дано натуральное число n, символы S1, ..., Sn. Группы символов, разделённые пробелами и не содержащие пробелов внутри себя, будем называть словами.
Подсчитать количество слов в данной последовательности.

[kventin_zhuk]

Ваша задача сводится к нахождению количества пробелов. 1 пробел - 2 слова, 2 пробела - три слова, 3 пробела - 4 слова ...... N пробелов - N +1 слов. Наработки в студию.

[Serge_Bliznykov]

Сообщение от kventin_zhuk

Ваша задача сводится к нахождению количества пробелов.

да щас!!!

Тут          сколько          слов?

проще всего поступить так:

var s : string;
  i, cWord : integer;
begin
  ReadLn(s);
  s := s + ' ';
  cWord:=0;
  for i:=1 to Length(s)-1 do
     if (s[i]<>' ')  and (s[i+1]=' ') then Inc(cWord);

  WriteLn('number of words: ', cWord);
  Readln
end.

тоже, конечно, не шедевр, но работать должно...

p.s. код не проверял, возможны опечатки/неточности...

[Bugrimov]

Нужен код на Pascal или на Си варианты принимаются?

[kventin_zhuk]

Serge_Bliznykov, ну да, вы правы. Почему-то об этом не подумал