в задании 4 является очевидным тот факт, что с импликацией простую формулу по данной ТИ не составить. в нём я приложил 3 простых формулы для данной ТИ.
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
//PascalABC.NET 3.1 сборка 1219
begin
var a := Range(1, 20).Aggregate(5, (s, x)-> s + 4);
PrintLn(a);
end.
или более сложно
const
n = 20;
var
i, a: integer;
begin
a := 5;
for i := 2 to 20 do
a := a + 4;
writeln(a);
end.