01.04.2021, 16:52
|
Прохожий
|
|
Регистрация: 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;
|