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

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

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


textual

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник
Похожие ответы