Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют заданному свойству - Pascal ABC

Формулировка задачи:

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

Код к задаче: «Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют заданному свойству - Pascal ABC»

textual
if length(A[i])>8 then begin
B[i]:=false;
goto otbor;
end;

11   голосов, оценка 4.364 из 5


СОХРАНИТЬ ССЫЛКУ