var a, b: string; i: integer; begin readln(a); b := a; for i := length(a) downto 1 do b[length(a) - i 1] := a[i]; if a = b then writeln('YES') else writeln('NO'); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
