Question

Первое слово заменяет последним. С клавиатуры вводится строка, состоящая из четырех слов (Pascal)

Answer 1

( PascalABC )

var s,tmp1,tmp2: string;

var i: integer;

begin

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

readln(s);

tmp1:=s.Substring(0,s.IndexOf(' '));

tmp2:=s.Substring(s.LastIndexOf(' ')+1);

s:=s.Remove(0,s.IndexOf(' '));

s:=s.Replace(tmp2,tmp1);

s:=tmp2+s;

write('Результат: ',s);

end.

Answer 2

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

pascalCopy code
program SwapFirstAndLastWord;

var
  inputString: string;
  words: array[1..4] of string;
  temp: string;

begin
  writeln('Введите строку из четырех слов:');
  readln(inputString);

  { Разделяем введенную строку на слова }
  words[1] := copy(inputString, 1, pos(' ', inputString) - 1);
  delete(inputString, 1, pos(' ', inputString));
  words[2] := copy(inputString, 1, pos(' ', inputString) - 1);
  delete(inputString, 1, pos(' ', inputString));
  words[3] := copy(inputString, 1, pos(' ', inputString) - 1);
  delete(inputString, 1, pos(' ', inputString));
  words[4] := inputString;

  { Меняем местами первое и последнее слово }
  temp := words[1];
  words[1] := words[4];
  words[4] := temp;

  { Выводим результат }
  writeln('Результат:');
  writeln(words[1], ' ', words[2], ' ', words[3], ' ', words[4]);

end.

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