1)строка содержит одно слово. проверить будет ли оно читаться одинаково справа налево и слева направо. 2)в записке слова зашифрованы - каждое из них записано наоборот. расшифровать сообщение.
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-тое, тут не отображается видимо тож код какой-то.
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: Я не знаю