Запомнить меня на этом копьютере
Пример программы для функции UpCase.
{UpCase.PAS} { Пример программы для функции UpCase} Uses WinCrt; Var S : String; I : Integer; Begin Write('Введите строку: '); ReadLn(S); For I:=1 To Length(S) Do S[I]:=UpCase(S[I]); WriteLn('Строка заглавными буквами: ', S); End.
Скачать upcase.pas