варвара563536536
07.08.2022 10:38

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
4moebanoe
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
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота