Question

Помогите, пожалуйста решить задачу по информатике! Составить программу на Паскале, которая удалит все пробелы из текста. Текст: «Информатика − наука, изучающая структуру, общие свойства и методы передачи информации».

Answer 1

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

begin

 ReadString.Replace(' ','').Print

end.

Answer 2

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

pascalCopy code
program RemoveSpaces;

var
  TextWithSpaces, TextWithoutSpaces: string;
  i: integer;

begin
  // Ввод текста с пробелами
  TextWithSpaces := 'Информатика − наука, изучающая структуру, общие свойства и методы передачи информации';

  // Инициализируем переменную для хранения текста без пробелов
  TextWithoutSpaces := '';

  // Удаляем пробелы из текста
  for i := 1 to Length(TextWithSpaces) do
  begin
    if TextWithSpaces[i] <> ' ' then
      TextWithoutSpaces := TextWithoutSpaces + TextWithSpaces[i];
  end;

  // Выводим результат
  WriteLn('Текст без пробелов:');
  WriteLn(TextWithoutSpaces);
end.

Программа вводит заданный текст с пробелами, а затем проходит по каждому символу исходного текста. Если символ не является пробелом, он добавляется в новую переменную TextWithoutSpaces. После обработки всего текста, программа выводит результат - текст без пробелов.

Запустите программу в вашей среде разработки Pascal, и она должна удалить все пробелы из текста и показать результат.