Question

Паскаль! Задано слово длины 3n(n- натуральное число). Удалить в нем последнюю треть слова, а оставшиеся две трети перевернуть.

Answer 1

var s,s1:string; n,i:integer;
begin
writeln('Введите слово длиной 3n:');
readln(s);
n:=length(s) div 3;
delete(s,2*n+1,n);
s1:='';
for i:=1 to 2*n do s1:=s[i]+s1;
writeln(s1);
end.

Пример:
Введите слово длиной 3n:
programma
argorp

Answer 2

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Введите слово с числом символов, кратным 3:');
  s:=s[:s.Length div 3 * 2+1].Inverse;
  s.Println
end.

Пример
Введите слово с числом символов, кратным 3: 1234567890abcde
0987654321

Answer 3

Задача: удаление последней трети слова и переворот оставшихся двух третей

Для решения данной задачи на языке Паскаль можно использовать следующий алгоритм:

1. Считать слово длины 3n, где n - натуральное число. 2. Удалить последнюю треть слова. 3. Перевернуть оставшиеся две трети.

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

var
  word: string;
  n, i: integer;
begin
  // Ввод слова
  readln(word);
  
  // Вычисление длины слова
  n := length(word) div 3;
  
  // Удаление последней трети слова
  delete(word, 2 * n + 1, n);
  
  // Переворот оставшихся двух третей
  for i := 1 to n do
    swap(word[i], word[2 * n - i + 1]);
  
  // Вывод результата
  writeln(word);
end.

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

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

Надеюсь, это поможет! Если у вас есть еще вопросы, пожалуйста, не стесняйтесь задавать.