Составить программу: является ли слово пилигримом

ez0lotareva ez0lotareva    2   22.09.2019 20:00    0

Ответы
POLINAFLY POLINAFLY  08.10.2020 10:25
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString;
  if s=s.Reverse.JoinIntoString then Writeln('Это палиндром')
  else Writeln('Это не палиндром')
end.

Пример
шалаш
Это палиндром
ПОКАЗАТЬ ОТВЕТЫ
Shanmao Shanmao  08.10.2020 10:25
Var s:string; i:integer; b:boolean;
begin
readln(s);
k:=length(s); b:=true
for i:=1 to k div 2 do if s[ i]<>s[ k-i+1] then b:=false;
writeln(b);
readln
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика