В каждом слове заменить последнюю букву на прописную

@VaniaRud · Регистрация: 17.02.2016

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

Добрый день форумчане ! прошу помощи !!!Help!!!
Задан текст, слова в котором разделены пробелами. В каждом слове заменить последнюю букву на прописную.
Буду признателен за помощь!!!

@JokeR.BY · 06.05.2016, 17:52

Pascal

{$MODE TP}
var
    s: String;
    i: Byte;
begin
    repeat
        Write('Input text:    '); ReadLn(s);
    until (Length(s) > 0);
    s := s + ' '; i := 1;
    for i := 1 to Length(s) do
        if ((s[i] in ['a'..'z']) And (s[i + 1] = ' '))
        then
            s[i] := Chr(Ord(s[i]) - 32);
    Write('Modified text: ', s);
end.

хотя мне кажется, что где-то чего-то я не учёл...

@VaniaRud 0 / 0 / 1 Регистрация: 17.02.2016 Сообщений: 33
		1
	В каждом слове заменить последнюю букву на прописную 06.05.2016, 16:12. Показов 1631. Ответов 1 Метки нет (Все метки) Добрый день форумчане ! прошу помощи !!!Help!!! Задан текст, слова в котором разделены пробелами. В каждом слове заменить последнюю букву на прописную. Буду признателен за помощь!!! 0

	06.05.2016, 17:52

Опции темы

В каждом слове заменить последнюю букву на прописную

Решение