Задание в Pascal ABC - Pascal ABC

Формулировка задачи:

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

Код к задаче: «Задание в Pascal ABC - Pascal ABC»

textual
Program forum;
 uses crt;
 var
  s :String;
   i,j:integer;
begin
j:=1;
  clrscr;
  Write('Введите строку: ');
  readln(s);
  for i:=1 to Length(s) do
     begin
     if(s[i]=' ')then Delete(s,i,1)
     else if(s[i]<>' ')and (s[i+1]=' ') then    j:=j+1;
     end;
      if(s[length(s)]=' ') then j:=j-1;
  writeln('количество строк: ',j);
end.

12   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ