Изменить строку, чтоб все слова в ней были записаны с большой буквы - Pascal ABC

Формулировка задачи:

Дана стартовая строка. Изменить стартовую строку так, чтобы все слова в ней были записаны с большой буквы. Спасибо за внимание!

Код к задаче: «Изменить строку, чтоб все слова в ней были записаны с большой буквы - Pascal ABC»

textual
var
  S: string;
  i: integer;
 
begin
  Write('Введите строку: ');
  Readln(S);
  S[1] := UpCase(S[1]);
  for i := 1 to Length(S) do
    if S[i] = ' ' then
      S[i + 1] := UpCase(S[i + 1]);
  Writeln(S);
  Readln;
end.

14   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы