Question

Измените данную программу так, чтобы на экран выводился символ введенного слова, стоящий посередине. (Для слов с четным количеством букв - символ справа от середины.) var s: string; n, k: integer; begin writeln('Введи слово'); readln(s); n := length(s); writeln('Последний символ - ', s[n]); k := pos(s[n], s); if k = n then writeln('Символ один') else writeln('Символ с индексом ', k) end.

Answer 1

var

 s: string;

 n, k: integer;

begin

 writeln('Введи слово');

 readln(s);

 n := length(s);

 writeln('Средний символ - ', s[n div 2 + 1]);

end.

Answer 2

Для вывода символа, стоящего посередине введенного слова (или справа от середины для слов с четным количеством букв), нужно найти индекс этого символа в строке. Для этого можно использовать простую арифметику.

Вот измененный код:

pascalCopy code
var
  s: string;
  n, k: integer;
begin
  writeln('Введи слово');
  readln(s);

  n := length(s);
  k := (n + 1) div 2; // Находим индекс символа в середине (округление вниз при делении целых чисел)

  writeln('Символ в середине - ', s[k]);
end.

Теперь программа найдет символ, стоящий в середине введенного слова, и выведет его на экран. Если количество букв в слове четное, то будет выведен символ, стоящий справа от середины.