Var
s:string;
l,i:byte;
begin
readln(s);
l := length(s);
for i:= 1 to l div 2 do begin
if s[i] <> s[l-i+1] then begin
writeln('NO');
halt;
end;
end;
writeln('YES');
<span>end.</span>
3...4...6 верные утверждениия
Первый смайлик может быть любым: грустным или весёлым. Вторым тоже может быть любым. Третьим уже остаётся лишь один вариант, так как не может быть подряд три идущих. Четвёртым, пятым могут идти любые смайлики, а шестым уже один. Так будет повторяться: седьмой, восьмой - два, девятый - один. Десятый - любой из двух. Итого выходит:
2 · 2 · 1 · 2 · 2 · 1 · 2 · 2 · 1 · 2 = 2⁷ = 128 дней он может без повторений отсылать сигналы.
Цифр не видно, но ответ 25 (уже был такой вопрос)