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

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

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

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