Question

Написать программу удаления половины символов, зная, что количество символов в строке - чётное. (Паскаль)

Answer 1

Вот пример программы на языке Паскаль, которая удаляет половину символов из строки, при условии, что количество символов в строке является четным:

program RemoveHalfChars;

var
  str: string;
  i: integer;

begin
  // Ввод строки
  write('Введите строку: ');
  readln(str);

// Проверка на четность количества символов
  if Length(str) mod 2 = 0 then
  begin
    // Удаление половины символов
    for i := Length(str) div 2 downto 1 do
      Delete(str, i, 1);

// Вывод результата
    writeln('Результат: ', str);
  end
  else
    writeln('Количество символов в строке не является четным.');
end.

Программа сначала запрашивает у пользователя ввод строки. Затем она проверяет, является ли количество символов в строке четным числом. Если это так, то программа удаляет половину символов из строки, начиная с середины и до начала строки. В конце программа выводит полученный результат.

Примечание: Программа написана на языке Паскаль. Если вы хотите написать программу на другом языке программирования, пожалуйста, уточните это.