Правила форума
UpCase.PASЯзык:
Русский
English
{ Пример программы для функции UpCase }
uses Crt;
var
S : String;
I : Integer;
begin
Write('Введите строку: ');
ReadLn(S);
for I := 1 to Length(S) do
S[I] := UpCase(S[I]);
WriteLn('Строка заглавными буквами: ', S);
end.
var
S : String;
I : Integer;
begin
Write('Введите строку: ');
ReadLn(S);
for I := 1 to Length(S) do
S[I] := UpCase(S[I]);
WriteLn('Строка заглавными буквами: ', S);
end.
::
::
::
