Question

Дана строка. Преобразовать в ней все прописные латинские буквы в строчные.Решение в паскаль

Answer 1

var

 s: string;

 i: Integer;

begin

 Read(s);

 for i := 1 to length(s) do

   s[i] := lowercase(s[i]);

 WriteLn(s)

end.  

Answer 2

Вот пример программы на Pascal, которая преобразует все прописные латинские буквы во входной строке в строчные:

pascalCopy code
program ConvertToLower;
var
  inputString: string;
  i: integer;
begin
  // Ввод строки
  writeln('Введите строку:');
  readln(inputString);

  // Преобразование букв
  for i := 1 to length(inputString) do
  begin
    if (inputString[i] >= 'A') and (inputString[i] <= 'Z') then
      inputString[i] := lowercase(inputString[i]);
  end;

  // Вывод результата
  writeln('Результат:');
  writeln(inputString);
end.

Программа сначала запрашивает у пользователя ввод строки, затем она проходит по каждому символу в строке и, если символ является прописной латинской буквой (в пределах 'A'-'Z'), он преобразуется в строчную с помощью функции lowercase. Наконец, программа выводит преобразованную строку.