InstallerSamples/!Tutorial/07_CharString/UpLowCase.pas - master - n-dimens/pascalabcnet

InstallerSamples/!Tutorial/07_CharString/UpLowCase.pas

21 строка500 B

Mikhalkovich Stanislav

Ускоренная реализация CountOf для строк

03 ноя 2025, 15:27

03 ноя 2025, 15:27e0a2854

// Использование стандартных функций UpperCase, LowerCase

begin
  for var c:='a' to 'z' do
    Write(UpperCase(c));
  Writeln;
  for var c:='A' to 'Z' do
    Write(LowerCase(c));
  Writeln;
  for var c:='А' to 'Я' do
    Write(UpperCase(c));
  Writeln;
  for var c:='а' to 'я' do
    Write(LowerCase(c));
  Writeln;
  var s := 'Папа у Васи силён в математике';
  s := UpperCase(s);
  Writeln(s);
  s := LowerCase(s);
  Writeln(s);
end.