строки Опции

[RIDDICK]

Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами – запятая или не менее одного пробела, за последним словом - точка.

Напечатать те слова последовательности, которые отличны от последнего слова и удовлетворяют следующему свойству:
- буквы слова упорядочены по алфавиту;
Напечатать те слова последовательности, которые отличны от последнего слова, предварительно преобразовав каждое из них по следующему правилу:
- перенести последнюю букву в начало слова.

помогите решить... горю... стринги еще не прошли ((

[hiv]

Чтобы учесть

это нечто дает тру только если слово типа "абв"... но никак не "абг"

Тогда замени это:

if length(s)>1 then boy:=(ord(s[i])=(ord(s[i-1])+1))

на вот это:

if length(s)>1 then boy:=(ord(s[i])>ord(s[i-1]))

А чтобы проблем не было с верхним и нижним регистрами, переведи всю строку в один регистр перед вычислениями.

Сообщение отредактировано: hiv - 12.05.2005 13:27