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

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

Задать свой вопрос
2 ответа
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
// 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
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт