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.
<u>Пример:</u>
ACAACA
YES
INPUT "x=", x
PRINT 1 - 2 * x + 3 * x ^ 2 - 4 * x ^ 3
PRINT 1 + 2 * x + 3 * x ^ 2 + 4 * x ^ 3
<em><u>Тестовое решение:</u></em>
Y:\qbasic>QBASIC.EXE
x=2.37
-40.1375
75.83891
Например:
-пожар в лесу, в котором сгорают деревья,
-кристаллики снежинок, тающие весной,
-прибрежные скалы, которые со временем подтачивают океанские волны,
-рыба, которую поймал и съел медведь.
Во всех этих случаях, упорядоченные ранее структуры разрушаются, распадаются на составляющие частицы и разносятся в конечном итоге по всей планете а некоторые и дальше.
<span>& - амперсанд, логическое умножение. 1*1 = 1, 1*0=0
v - логическое сложение. 1+1 = 1, 1+0 = 0, 0+0 = 0
</span>((1 & 1)v 0) & (0v 1) = ((1 * 1) + 0) * (0 + 1) = 1
((0 & 0)v0) & (1 v 1) = <span>((0 * 0) +0) * (1 + 1) = 1</span>