Показать сообщение отдельно
  #5  
Старый 01.04.2021, 16:48
Vladimr Vladimr вне форума
Прохожий
 
Регистрация: 17.03.2021
Сообщения: 41
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Решение задачи 2.

Код:
var s:string; //текст с предложением
a:integer; //кол-во слов
i:integer; //для цикла
begin
//любым способом передаём выше предложение в переменную s
a:=1; //первоначальное значение кол-ва слов
for I := 1 to length(s) do if (s[i]=' ')and(s[i+1]<>' ') then a:=a+1;
//считаем кол-во разделителей слов (т.е. пробелов)

writeln('кол-во слов в предложении: '+inttostr(a));
end;
Ответить с цитированием