Удалить из строки все буквы с четными номерами

@Palters · Регистрация: 19.05.2015

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

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

@mamedovvms · 23.05.2015, 20:59

Pascal

1 2	for i:=2 to (length(s) div 2) + 1 do delete(s,i,1);

@Cyborg Drone · 24.05.2015, 04:35

mamedovvms, код ошибочный. Правильно так, например:

Pascal

1	for i := length(s) div 2 downto 1 do delete(s, i * 2, 1);

@mamedovvms · 25.05.2015, 05:36

а вы уверены, что код ошибочный? код правильный. Впредь, прежде, чем такое писать проверьте.

@Cyborg Drone · 25.05.2015, 06:18

mamedovvms, извиняюсь. Проверял. И, не знаю почему, но была стойкая уверенность, что код просто удаляет символы со 2 по length(s) div 2. Это, наверное, потому что нечего мне по ночам сидеть. И не такое приблажится. Ваш код оптимальнее, чем мой.

@Palters 0 / 0 / 0 Регистрация: 19.05.2015 Сообщений: 4
		1
	Удалить из строки все буквы с четными номерами 23.05.2015, 20:31. Показов 671. Ответов 4 Метки нет (Все метки) Используя строковый тип, удалить все буквы с четными номерами. Помогите пожалуйста. 0

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	25.05.2015, 05:36	4
	а вы уверены, что код ошибочный? код правильный. Впредь, прежде, чем такое писать проверьте. 0

@Cyborg Drone Модератор 9871 / 5239 / 3306 Регистрация: 17.08.2012 Сообщений: 16,007
	25.05.2015, 06:18	5
	mamedovvms, извиняюсь. Проверял. И, не знаю почему, но была стойкая уверенность, что код просто удаляет символы со 2 по length(s) div 2. Это, наверное, потому что нечего мне по ночам сидеть. И не такое приблажится. Ваш код оптимальнее, чем мой. 1