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
Ответ:
a) 1 1 0 1 = 1
b) 1 1 0 1 = 1
c) 0 0 0 1 = 1
d) 0 0 0 1 = 1
Объяснение:
Напиши,если нужно объяснение)
00110101 | 65 | 53 | 35
10001001 | 211 | 137 |89
11100111 | 347 | 231 | E7
00101100 | 54 | 44 | 2C
Вычислял калькулятором "Programmer" в Windows 10.