Question

создайте программу, которая выводит из слова букву которая стоит посередине или в другом случае две по середине. Язык паскаль​

Answer 1

begin

 var s := ReadlnString();

 if s.Length.IsOdd then

   Write(s[(1 + s.Length) div 2])

 else

   Write(s[s.Length div 2], s[s.Length div 2 + 1])

end.

Answer 2

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

pascalCopy code
program MiddleLetter;

var
  word: string;
  middleLetters: string;

begin
  // Ввод слова
  writeln('Введите слово:');
  readln(word);

  // Определение букв(ы) посередине слова
  if Length(word) mod 2 = 0 then
  begin
    // Слово с четным количеством букв
    middleLetters := word[Length(word) div 2] + word[Length(word) div 2 + 1];
  end
  else
  begin
    // Слово с нечетным количеством букв
    middleLetters := word[Length(word) div 2 + 1];
  end;

  // Вывод результата
  writeln('Буква(ы) посередине слова: ', middleLetters);
end.

Как работает программа:

1. Пользователь вводит слово.
2. Программа определяет, четное или нечетное количество букв в слове.
3. Если количество букв четное, программа выбирает две буквы посередине слова.
4. Если количество букв нечетное, программа выбирает одну букву посередине слова.
5. Результат выводится на экран.

Обратите внимание, что программа не делает проверки на ввод некорректных данных или пустых строк. В реальном приложении стоит добавить соответствующие проверки, чтобы обеспечить правильную работу программы.