Интересная последовательность, как разобраться?

@7yr1k · Регистрация: 07.12.2010

1) Вводится последовательность слов, из каждого слова удалить средние буквы( если слово четное тогда 2 буквы, если нет тогда 1 букву.

@use · 19.12.2010, 08:10

если слово четное тогда 2 буквы, если нет тогда 1 букву

- думаю, ты имел в виду длину слова, а не номер..

Pascal

1	Delete(w,(Length(s)+1) div 2,2-Length(s) mod 2);

@7yr1k · 20.12.2010, 13:37 **[ТС]**

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

- думаю, ты имел в виду длину слова, а не номер..

Pascal

1	Delete(w,(Length(s)+1) div 2,2-Length(s) mod 2);

Это я понимаю! Я сделал так чтобы вводилось одно слово и удалялось! Как сделать так чтобы вводилась последовательность:?

@use · 21.12.2010, 07:25

Сообщение от 7yr1k

Это я понимаю! Я сделал так чтобы вводилось одно слово и удалялось! Как сделать так чтобы вводилась последовательность:?

Вишь ты! понимаешь..
ну, теперь просто разбивай на слова..

@7yr1k 0 / 0 / 0 Регистрация: 07.12.2010 Сообщений: 3
		1
	Интересная последовательность, как разобраться? 19.12.2010, 02:55. Показов 583. Ответов 3 Метки нет (Все метки) 1) Вводится последовательность слов, из каждого слова удалить средние буквы( если слово четное тогда 2 буквы, если нет тогда 1 букву. 0

@use 180 / 180 / 81 Регистрация: 18.12.2010 Сообщений: 346
	21.12.2010, 07:25	4
	Сообщение от 7yr1k Это я понимаю! Я сделал так чтобы вводилось одно слово и удалялось! Как сделать так чтобы вводилась последовательность:? Вишь ты! понимаешь.. ну, теперь просто разбивай на слова.. 0