Question

НУЖНА ПОМОЩЬ В ПАСКАЛЕ Запросить у пользователя строку S, сформировать из нее строку S1, переставив символы в строке S местами: первый с последним, второй с предпоследним и т.д. Вывести на чистый экран строки S и S1, рядом их длину.

Answer 1

Поскольку в Windows-приложениях нет понятия "чистый экран", ввод/вывод был направлен в DOS-окно

// PascalABC.NET 3.3, сборка 1607 от 31.12.2017
// Внимание! Если программа не работает, обновите версию!

uses Crt;

begin
  var s:=ReadlnString('Введите строку');
  ClrScr;
  var L:=s.Length; Println(s,L);
  var s1:=s.Inverse; Println(s1,L)
end.

Answer 2

Задача: Перестановка символов в строке

Чтобы решить данную задачу на языке Pascal, нужно запросить у пользователя строку `S`, сформировать из нее строку `S1`, переставив символы в строке `S` местами: первый с последним, второй с предпоследним и т.д. Затем вывести на экран строки `S` и `S1`, а также их длину.

Вот пример решения на языке Pascal:

program StringPermutation;
var
  S, S1: string;
  i: integer;
begin
  // Запросить у пользователя строку S
  writeln('Введите строку S:');
  readln(S);
  
  // Сформировать строку S1, переставив символы в строке S местами
  S1 := '';
  for i := length(S) downto 1 do
    S1 := S1 + S[i];
  
  // Вывести строки S и S1, а также их длину
  writeln('Строка S: ', S);
  writeln('Длина строки S: ', length(S));
  writeln('Строка S1: ', S1);
  writeln('Длина строки S1: ', length(S1));
end.

После запуска программы, она запросит у пользователя ввести строку `S`, затем выведет на экран строки `S` и `S1`, а также их длину.

Например, если пользователь вводит строку "Hello", программа выведет:

Строка S: Hello
Длина строки S: 5
Строка S1: olleH
Длина строки S1: 5

Примечание: Данное решение использует цикл `for` для перестановки символов в строке `S`. Каждый символ из строки `S` добавляется в начало строки `S1`, чтобы символы оказались в обратном порядке.