Question

1)строка содержит одно слово. проверить будет ли оно читаться одинаково справа налево и слева направо.
2)В записке слова зашифрованы - каждое из них записано наоборот. Расшифровать сообщение.

Answer 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-тое, тут не отображается видимо тож код какой-то.