С клавиатуры вводится строка состоящая из предложений разделяемых точками.Составьте программу выполняющую следующие форматирования:первое слово в предложении должно начинаться с прописной буквы,после каждой точки должен стоять один пробел. Обычный PascalABC.NET
var
s: string;
i, n: byte;
begin
writeln('введите строку ');
readln(s);
s[1]:=upcase(s[1]);
for i:=length(s) downto 1 do
if s[i]='.' then
begin
if s[i+1]<>' 'then
begin
s[i+1]:=upcase(s[i+1]);
insert(' ',s,i+1);
end
else
for n:=i+1 to length(s)do
if s[n]<>' 'then
begin
s[n]:=upcase(s[n]);
end;
end;
begin
writeln(s);
end;
end.
Объяснение: