Ограничение времени 1 секунда ограничение памяти 64mb ввод стандартный ввод или input.txt вывод стандартный вывод или output.txt как известно, цепочка днк формируется из четырёх аминокислот, обозначаемых соответственно буквами ‘ a’, ‘ c’, ‘ g’ и ‘ t’. таким образом, цепочку можно представить в виде строки, составленной из этих букв. известно, что у всех марсианских видов цепочка днк состоит из чётного числа аминокислот и что у марсианских животных цепочка днк обладает следующим свойством: она читается слева направо так же, как и справа налево (то есть является палиндромом), при этом каждая из её половин также читается слева направо так же, как и справа налево. не таким свойством цепочки принадлежат растениям. на практическом занятии по биологии на марсианской летней олимпиадной школе дали — по заданной цепочке днк вымершего марсианского вида выяснить, принадлежит ли эта цепочка животному. формат ввода вход содержит цепочку днк — одну непустую строку, состоящую из символов ‘ a’, ‘ g’, ‘ t’ и ‘ c’. гарантируется, что длина строки чётна и не превосходит 100. формат вывода если данная цепочка принадлежит марсианскому животному, выведите “ yes”. иначе выведите “ no”.

Ответы

BloodRainbow 07.10.2020 20:22

Var
s:string;
t,c:string;
function Palindrome(s:string):boolean;
var
i:integer;
begin
for i:= 1 to s.Length div 2 do
    if s[i] <> s[s.Length-i+1] then
      begin
      Palindrome:=false;
      exit;
      end;
Palindrome:= true;
end;

begin
Readln(s);
c:=copy(s,1, s.Length div 2);
t:=copy(s,s.Length div 2 + 1, s.Length);
if (Palindrome(s))and(Palindrome(c))and(Palindrome(t)) then
    Writeln('YES')
else
    Writeln('NO');
end.

Пример:
ACAACA
YES

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика