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

@fastest3 · Регистрация: 02.01.2012

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

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

@КонецСвета · 02.01.2012, 14:41

Сообщение от fastest3

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

Pascal

uses crt;
var s: string;
    i: integer;
begin
write('s=');
readln(s);
s[1]:=upcase(s[1]);
for i:=1 to length(s)-1 do
    if (s[i]=' ') and (s[i+1]<>' ') then
       s[i+1]:=upcase(s[i+1]);
write('s=',s);
end.

@fastest3 0 / 0 / 0 Регистрация: 02.01.2012 Сообщений: 11
		1
	Строки. Преобразовать строку так, чтобы каждое слово начиналось с заглавной буквы 02.01.2012, 09:20. Показов 3731. Ответов 1 Метки нет (Все метки) IX.Символы и строки 28. Дана строка-предложение на русском языке. Преобразовать строку так, чтобы каждое слово начиналось с заглавной буквы. 0

	02.01.2012, 14:41

Опции темы

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

Решение