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