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.
Пример:
слОва отдЕЛены друг от друга ОДНИМ пробелом. испрАвить стрОкУ? вывести полУЧЕнную стрОКу на экран!
Слова отделены друг от друга одним пробелом. Исправить строку? Вывести полученную строку на экран!
Жили были кнопки. и они путешевствовали по рабочему столу. вдруг одна застряла в какой-то гуще! это было варенье! кнопки сказали это все из-за тебя! нельзя кушать за компьютерным столом!
Берем с точки (-5;7),чертим до точки (-3;11),теперь вниз до точки (-3;1).Векторы в точке (-5;7) и (-3,11).