Разрезать введённую строку пополам и соединить задом наперёд

@PascalProgram · Регистрация: 16.12.2018

Author24 — интернет-сервис помощи студентам

Необходимо разрезать введённую строку пополам и соединить задом наперёд. В моей программе

Pascal

var s, e:string;
begin
readln(s);
e:=s;
delete(e, 1, length(s)+1 div 2);
delete(s, length(s)+1 div 2, length(s));
writeln(e+s);
end.

строка должна дублироваться, из первой копии вырезаться начало, из второй копии - конец, а затем они должны соединиться. По факту же, первая копия удаляется вся, а вторая копия обрезается на один символ меньше нужного.

@Puporev · 03.02.2019, 13:31

Pascal

1	s:=copy(s,length(s)div 2+1,length(s))+copy(s,1,length(s) div 2);

@PascalProgram · 03.02.2019, 13:36 **[ТС]**

P.S. Действие по сложению размера строки с единицей и делению на два почему-то не воспринимается.

Добавлено через 3 минуты
В принципе, так, но в нечётных по числу символов строках нужно, чтобы первая часть была на один символ больше последней.

@bormant · 06.02.2019, 12:26

Сообщение от PascalProgram

первая часть была на один символ больше последней

первая часть до разрезания

Pascal

1 2	t:=(Length(s)+1) div 2; s:=Copy(s,t+1,Length(s))+Copy(s,1,t);

@PascalProgram 0 / 0 / 0 Регистрация: 16.12.2018 Сообщений: 45
	03.02.2019, 13:36 [ТС]	3
	P.S. Действие по сложению размера строки с единицей и делению на два почему-то не воспринимается. Добавлено через 3 минуты В принципе, так, но в нечётных по числу символов строках нужно, чтобы первая часть была на один символ больше последней. 0

	06.02.2019, 12:26

Разрезать введённую строку пополам и соединить задом наперёд

Решение