1) строка содержит одно слово. Проверить будет ли оно читаться одинаково справа…

1: var s: string; i: byte; begin read (s); i: =1; while (i>=length (s) div 2) and (si=s[length (s) -i+1]) do inc (i); if si>=s[length (s) -i+1] then writeln ('да') else writeln ('нет'); readln; end. Где si имеется ввиду s i-тое, тут не отображается видимо тож код какой-то. Как то так.2: Я не знаю