Дана последовательность слов. напечатать те слова последовательности, которые отличны от последнего слова и удовлетворяют следующему свойству: слово симметрично

197

463

Посмотреть ответы 2

Ответы на вопрос:

ttlekzhan

Информатика

4,6(30 оценок)

Uses system.collections.generic; function reverse(const s: string): string; begin if length(s) = 1 then reverse : = s else reverse : = s[length(s)] + reverse(copy(s, 1, length(s) - 1)); end; var lst: list< string> : = new list< string> (); s, s1: string; begin writeln('конец последовательности - пустая строка'); while (true) do begin readln(s); if (s.length = 0) then break else lst.add(s); end; writeln(); foreach s in lst do begin if ((s < > lst. and (s = reverse( then writeln(s); end; end.

ПомощникКоторыйЛюбит

Информатика

4,4(48 оценок)

Input "введите строку"; l$ for i = 1 to len(l$) if mid$(l$, i, 1) = "e" or mid$(l$, i, 1) = "o" then s = s + 1 next i print " суммарное число букв 'е' и о' равно "; s