Отправлено: 12.03.10 06:30. Заголовок: Задача подсчета кол-ва слов в строке (Турбо паскаль)

Ребята помогите пожалуйста.... Вы знаете как написать программу для подсчета, сколько N-символьных слов (число N вводится пользователем) содержится во введенной строке символов....Напишите хотя бы примерно....Заранее спасибо

 Отправлено: 12.03.10 14:09. Заголовок: На каком языке писат..

На каком языке писать?
Это ведь задачка по учебе?

 Отправлено: 13.03.10 05:37. Заголовок: Да, На языке Турбо П..

Да, На языке Турбо Паскаль

 Отправлено: 14.03.10 00:17. Заголовок: До чего же давно не ..

До чего же давно не писал на Паскале!!!

 
 program my; 
 uses crt; 
 var 
   str: string; 
   lenStr, 
   i, nWords:  integer; 
   spacer: set of char; 
 begin 
   clrscr; 
   write('Input string and press Enter: '); 
   readln(str); 
   str := str + '.'; { Пусть строка всегда заканчивается точкой } 
   spacer := [' ', '.', ',', ';', ':', '!', '?']; { Набор разделителей слов } 
   lenStr := length(str); 
   nWords := 0; 
  
   for i := 2 to lenStr do { Просмотр всех символов со второго } 
     if((str in spacer)and not (str[i-1] in spacer))then 
       inc(nWords); { Только если после нормального символа идет разделитель } 
  
   write('There are ', nWords, ' words!', #13#10, 'Press any key...'); 
   repeat until keypressed; 
 end.