Превратить строку так, чтобы каждое предложение начиналось с заглавной буквы

22.06.2011, 23:24. **Показов** 2045. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Помогите Решить в Паскале. Превратить строку так, чтобы каждое предложение начиналось с заглавной буквы.

@Gxost · 23.06.2011, 03:32

Pascal

var
a,i:integer;
s:string;
begin
readln(s);
for i:=1 to length(s) do
if (s[i]=' ') and (s[i+1]=' ') then delete(s,i,1);
for i:=1 to length(s) do
if (s[i] in ['.','!','?']) and (s[i+1]=' ') then s[i+2]:=upcase(s[i+2]);
s[1]:=upcase(s[1]);
writeln(s);
end.

Сашуня
		1
	Превратить строку так, чтобы каждое предложение начиналось с заглавной буквы 22.06.2011, 23:24. Показов 2045. Ответов 1 Метки нет (Все метки) Помогите Решить в Паскале. Превратить строку так, чтобы каждое предложение начиналось с заглавной буквы.

	23.06.2011, 03:32

Опции темы

Превратить строку так, чтобы каждое предложение начиналось с заглавной буквы

Решение