Перевести на питон или с++ var
s: string;
i,l: byte;
begin
readln(s);
l := length(s);
if l s[l-i+1] then begin
writeln('это не палиндром');
exit;
end;
writeln('это палиндром');
end.

Виктория17121    3   22.12.2020 16:34    1