slovo = str(input()) a = slovo[::-1] if slovo == a: print("yes") else: print("no")
pascal:
function palindrom(var arg:string):boolean; var i:byte; str:string; begin palindrom:=false; str:=''; for i:=length(arg) downto 1 do str:=str+arg[i]; if str=arg then palindrom:=true; end; var s:string; begin readln(s); writeln(Palindrom(s)); readln; end.
V=K*I; V - объем сообщения K - количество символов в сообщении I - вес одного символа; N=2^I, где N мощность алфавита (N≤32 ⇒ I≤5); V₁=V₂ (объёмы сообщений); 2,5*K₁ = K₂ V₁=K₁*I₁; V₂=K₂*I₂=2,5*K₁*I₂; приравняем объёмы K₁*I₁=2,5*K₁*I₂ ⇒ I₁ = 2,5*I₂ решим уравнение в целых числах, учитывая, что любое I≤5 ( можно подставлять числа для I₁ от 1 до 5 и найти то решение, при котором I₂ - целое число); у меня получилось I₁ = 5; I₂=2 т.к. 5=2,5*2 нам нужны мощности 1го и 2го алфавитов N₁=2^I₁=2⁵=32 символа; N₂=2^I₂=2²=4 символа.
V=K*I; V - объем сообщения K - количество символов в сообщении I - вес одного символа; N=2^I, где N мощность алфавита (N≤32 ⇒ I≤5); V₁=V₂ (объёмы сообщений); 2,5*K₁ = K₂ V₁=K₁*I₁; V₂=K₂*I₂=2,5*K₁*I₂; приравняем объёмы K₁*I₁=2,5*K₁*I₂ ⇒ I₁ = 2,5*I₂ решим уравнение в целых числах, учитывая, что любое I≤5 ( можно подставлять числа для I₁ от 1 до 5 и найти то решение, при котором I₂ - целое число); у меня получилось I₁ = 5; I₂=2 т.к. 5=2,5*2 нам нужны мощности 1го и 2го алфавитов N₁=2^I₁=2⁵=32 символа; N₂=2^I₂=2²=4 символа.
slovo = str(input())
a = slovo[::-1]
if slovo == a:
print("yes")
else:
print("no")
pascal:
function palindrom(var arg:string):boolean;
var i:byte;
str:string;
begin
palindrom:=false;
str:='';
for i:=length(arg) downto 1 do
str:=str+arg[i];
if str=arg then palindrom:=true; end;
var s:string;
begin readln(s); writeln(Palindrom(s));
readln;
end.