Var s:string; i:integer; b:boolean; begin readln(s); k:=length(s); b:=true for i:=1 to k div 2 do if s[ i]<>s[ k-i+1] then b:=false; writeln(b); readln end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку