Tode
4 год назад
Ограничение времени 1 секундаОграничение памяти 64MbВвод стандартный ввод или input.txtВывод стандартный вывод или output.txtКак известно, цепочка ДНК формируется из четырёх аминокислот, обозначаемых соответственно буквами ‘ A’, ‘ C’, ‘ G’ и ‘ T’. Таким образом, цепочку можно представить в виде строки, составленной из этих букв.Известно, что у всех марсианских видов цепочка ДНК состоит из чётного числа аминокислот и что у марсианских животных цепочка ДНК обладает следующим свойством: она читается слева направо так же, как и справа налево (то есть является палиндромом), при этом каждая из её половин также читается слева направо так же, как и справа налево. Не обладающие таким свойством цепочки принадлежат растениям.На практическом занятии по биологии на марсианской Летней олимпиадной школе дали задание — по заданной цепочке ДНК вымершего марсианского вида выяснить, принадлежит ли эта цепочка животному.Формат вводаВход содержит цепочку ДНК — одну непустую строку, состоящую из символов ‘ A’, ‘ G’, ‘ T’ и ‘ C’. Гарантируется, что длина строки чётна и не превосходит 100.Формат выводаЕсли данная цепочка принадлежит марсианскому животному, выведите “ YES”. Иначе выведите “ NO”.
ОТВЕТЫ
Vaclav
Oct 24, 2020
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
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
602
Смежные вопросы: