С клавиатуры вводится строчка, состоящая из предложений на русском языке. Каждое

С клавиатуры вводится строчка, состоящая из предложений на российском языке. Каждое предложение заканчивается или точкой, или вопросительным знаком, или восклицательным. Слова разделены друг от друга одним пробелом, в согласовании с правилами русского языка. Поправить строчку таким образом, чтоб каждое предложение начиналось с заглавной буковкы, а остальные буковкы были строчными. Вывести полученную строчку на экран.

Задать свой вопрос
1 ответ
Var s:string; i:integer;
begin
readln(s);
s[1]:=Upcase(s[1]);
for i:=2 to length(s) do s[i]:=lowcase(s[i]);
for i:=1 to length(s)-2 do
if (s[i] in ['.','?','!'])and(s[i+1]=' ')
 then s[i+2]:=Upcase(s[i+2]);
writeln(s);
end.

Пример:
слОва отдЕЛены друг от друга ОДНИМ пробелом. поправить стрОкУ? вывести полУЧЕнную строчку на экран!
Слова разделены друг от друга одним пробелом. Поправить строчку? Вывести полученную строку на экран!
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт