Question

Помогите пожалуйста!!! напишите программу которая определяет символ стоящий на середине строки (Pascal)​

Answer 1

===== PascalABC.NET =====

begin

 var s := ReadlnString;

 var i := Length(s) div 2;

 Write('Символ "', s[i], '"')

end.

Answer 2

Конечно, вот простая программа на языке Pascal, которая определяет символ, стоящий посередине строки:

scssCopy code
program MiddleChar;

var
  str: string;
  middleIndex: integer;

begin
  // Получаем строку от пользователя
  write('Введите строку: ');
  readln(str);

  // Определяем индекс символа посередине строки
  middleIndex := length(str) div 2 + 1;

  // Выводим символ, стоящий посередине строки
  writeln('Символ посередине строки: ', str[middleIndex]);
end.

Программа запрашивает у пользователя ввод строки, затем определяет индекс символа посередине строки (для строк с нечетным количеством символов это будет целочисленное деление длины строки на 2, для строк с четным количеством символов - индекс правой половины строки) и выводит символ по этому индексу.