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

@инна_ · Регистрация: 18.01.2011

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

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

@Puporev · 21.01.2011, 09:07

Pascal

uses crt;
var s:string;
    i:byte;
begin
writeln('Введите предложение из символов латинского алфавита');
writeln('перед началом слова пробел');
readln(s);
if s[1] in ['a'..'z'] then s[1]:=Upcase(s[1]);/если первая буква маленькая
for i:=2 to length(s) do  //остальная строка
//если маленькая, а перед ней пробел
if(s[i] in ['a'..'z'])and(s[i-1]=' ') then s[i]:=Upcase(s[i]);
write(s);
end.

@инна_ 3 / 3 / 0 Регистрация: 18.01.2011 Сообщений: 34
		1
	Преобразовать строку так, чтобы каждое слово начиналось с заглавной буквы 20.01.2011, 19:08. Показов 2133. Ответов 1 Метки нет (Все метки) Дана строка- предложение из символов латинского алфавита. Преобразовать строку так чтобы каждое слово начиналось с заглавной буквы. 0

Опции темы

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

Решение