Удвоить все буквы, стоящие в первой половине слова, а во второй оставить без изменения

@Kris_Riro · Регистрация: 01.03.2015

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

Введите слово с клавиатуры. Слово состоит из четного количества букв. Необходимо удвоить все буквы, стоящие в первой половине слова, а во второй оставить без изменения.

@APALoff · 02.03.2015, 10:01

Pascal

1
2
3

Readln(s);
For i:=Length(s) div 2 downto 1 do s:=Copy(s,1,i)+s[i]+Copy(s,i+1,Length(s)-i);
Writeln(s);

@Cyborg Drone · 08.03.2015, 18:28

Pascal

1
2
3

  readln(s);
  for i := length(s) div 2 downto 1 do insert(s[i], s, i);
  write('s = ', s);

@Kris_Riro 0 / 0 / 0 Регистрация: 01.03.2015 Сообщений: 8
		1
	Удвоить все буквы, стоящие в первой половине слова, а во второй оставить без изменения 01.03.2015, 16:06. Показов 1560. Ответов 2 Метки нет (Все метки) Введите слово с клавиатуры. Слово состоит из четного количества букв. Необходимо удвоить все буквы, стоящие в первой половине слова, а во второй оставить без изменения. 0

	08.03.2015, 18:28

Удвоить все буквы, стоящие в первой половине слова, а во второй оставить без изменения

Решение