Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString;
if s=s.Reverse.JoinIntoString then Writeln('Это палиндром')
else Writeln('Это не палиндром')
end.
Пример
шалаш
Это палиндром
Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString;
if s=s.Reverse.JoinIntoString then Writeln('Это палиндром')
else Writeln('Это не палиндром')
end.
Пример
шалаш
Это палиндром
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад