Question

PASCAL!!!! Вводиться строка из трёх слов, разделённых пробелами. В начале и конце строки могут быть пробелы. Составьте программу преобразовывающую строку к верхнему регистру и удаляющую пробелы в начале и конце строки.Пример:Начинается дождь. НАЧИНАЕТСЯ ДОЖДЬPLS HELLP(ᗒᗩᗕ)

Answer 1

Ответ:

мгщвшнаощаешвнщарщв

Объяснение:

исощалранпгщанщаощарщ

Answer 2

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

pascalCopy code
program StringTransformation;

uses
  SysUtils;

procedure RemoveSpacesAndConvertToUpper(var str: string);
begin
  str := Trim(str); // Удаление пробелов в начале и конце строки
  str := UpperCase(str); // Преобразование строки к верхнему регистру
end;

var
  userInput: string;
begin
  writeln('Введите строку из трех слов, разделенных пробелами:');
  readln(userInput);

  RemoveSpacesAndConvertToUpper(userInput);

  writeln('Результат:');
  writeln(userInput);

  readln;
end.

Эта программа сначала считывает ввод пользователя, затем вызывает процедуру RemoveSpacesAndConvertToUpper, которая удаляет пробелы в начале и конце строки с помощью функции Trim, а затем преобразует строку к верхнему регистру с помощью функции UpperCase. Наконец, программа выводит преобразованную строку на экран.