Правила форума
Прочтите прежде чем задавать вопрос!
Дана последовательность слов. Напечатать те слова последовательности, которые отличны от последнего слова и удовлетворяют следующему свойству:
1) в слове нет повторяющихся букв
2) буквы слова упорядочены по алфовиту
3) слово совпадает с начальным отрезком латинского алфавита (a, ab, abc, abcd, ...)
4) слово симметрично
Вот написал только начало (ввод слов и проверка их длины):
uses crt;
const
n=5;
type
posledovatelnost = array [1..n] of string;
dlina = array [1..4] of integer;
var
bukvi: set of char;
s: posledovatelnost;
l: dlina;
i: integer;
begin
clrscr;
for i:=1 to n do
begin
writeln ('BBeguTe ',i,' C/loBo');
readln (s[i]);
l[i]:=length(s[i]);
end;
end.
Пользуйтесь тегами !
Сообщение отредактировано: klem4 -
