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

@LastFr1day · Регистрация: 15.11.2015

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

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

@Puporev · 27.01.2016, 13:55

Паскаль какой и алфавит какой?

@LastFr1day · 27.01.2016, 14:08 **[ТС]**

Pascal

var
   S: string;
   i: byte;
begin
     Write('введите строку:'); 
     Readln(S);
     
     for i:=1 to Length(S) do begin
         if (S[i]=' ') or (S[i]='.') then S[i-1]:=UpCase(S[i-1]);
         end;
     Writeln('преобразованная строка:',S);
end.

Уже вроде как сделал

@Puporev · 27.01.2016, 14:40

Pascal

1 2	for i:=2 to Length(S) do if (S[i] in[' ','.'])and not (S[i-1] in [' ','.']) then S[i-1]:=UpCase(S[i-1]);

@LastFr1day 0 / 0 / 0 Регистрация: 15.11.2015 Сообщений: 27
		1
	Преобразовать каждое слово так, чтобы оно заканчивалось заглавной буквой 27.01.2016, 13:49. Показов 2509. Ответов 3 Метки нет (Все метки) Дана строка слов, разделенных произвольным количеством пробелов, после последнего слова точка. Преобразовать каждое слово так, чтобы оно заканчивалось заглавной буквой. 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	27.01.2016, 13:55	2
	Паскаль какой и алфавит какой? 0

	27.01.2016, 14:40

Опции темы

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

Решение