Question

ПРОГРАММИРОВАНИЕ НА ЯЗЫКЕ PASCAL. ЗАДАЧА : ПОМЕНЯТЬ МЕСТАМИ ПЕРВЫЕ ТРИ И ПОСЛЕДНИЕ ДВА СЛОВА. ТЕКСТ : БОРОДА НЕ ДЕЛАЕТ МУДРЫМ ЧЕЛОВЕКА.

Answer 1

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

begin

 var a := 'БОРОДА НЕ ДЕЛАЕТ МУДРЫМ ЧЕЛОВЕКА'.ToWords;

 Print(a[3], a[4]);

 a[:3].Print

end.

Answer 2

Чтобы решить данную задачу на языке Pascal, необходимо выполнить следующие шаги:

1. Разделить строку на слова.
2. Поменять местами первые три слова с последними двумя.
3. Собрать слова обратно в строку.

Вот пример программы на языке Pascal, выполняющей указанные шаги:

pascalCopy code
program SwapWords;

uses
  SysUtils;

function ReverseWords(const S: string): string;
var
  Words: TStringDynArray;
  FirstThree, LastTwo: string;
begin
  // Шаг 1: Разделить строку на слова
  Words := SplitString(S, ' ');

  // Если в строке меньше 5 слов, то просто возвращаем исходную строку
  if Length(Words) < 5 then
    Exit(S);

  // Шаг 2: Поменять местами первые три слова с последними двумя
  FirstThree := Words[0] + ' ' + Words[1] + ' ' + Words[2];
  LastTwo := Words[High(Words) - 1] + ' ' + Words[High(Words)];

  Words[0] := Words[High(Words) - 4];
  Words[1] := Words[High(Words) - 3];
  Words[2] := Words[High(Words) - 2];
  Words[High(Words) - 1] := FirstThree;
  Words[High(Words)] := LastTwo;

  // Шаг 3: Собрать слова обратно в строку
  Result := Concat(Words, ' ');
end;

var
  Text: string;
begin
  Text := 'БОРОДА НЕ ДЕЛАЕТ МУДРЫМ ЧЕЛОВЕКА.';
  Text := ReverseWords(Text);
  WriteLn(Text);
end.

Этот код разбивает исходную строку на слова, меняет местами первые три слова с последними двумя и собирает слова обратно в строку. Обратите внимание, что данная реализация предполагает, что в исходной строке есть как минимум пять слов. Если слов меньше, программа просто вернет исходную строку без изменений.