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

@Nixon97 · Регистрация: 12.12.2013

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

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

@Mishania · 01.03.2014, 20:03

Nixon97,

Pascal

var
   S: string;
   i: byte;
begin
     Write('S:'); Readln(S);
     S[1]:=UpCase(S[1]);
     for i:=1 to Length(S) do begin
         if S[i]=' '
                    then S[i+1]:=UpCase(S[i+1]);
         end;
     Writeln(S);
Readln;
end.

@Nixon97 0 / 0 / 1 Регистрация: 12.12.2013 Сообщений: 16
		1
	Дана строка-предложение на русском языке. Преобразовать строку так, чтобы каждое слово начиналось с заглавной буквы 27.02.2014, 17:56. Показов 9904. Ответов 1 Метки нет (Все метки) Дана строка-предложение на русском языке. Преобразовать строку так, чтобы каждое слово начиналось с заглавной буквы. 0

	01.03.2014, 20:03

Опции темы

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

Решение