// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 begin var s:=ReadLnString('Вводите:'); s.ToWords.Where(x->x=ReverseString(x)).PrintLn; end.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган и с в шалаш
Вариант, если исключить однобуквенные:
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 begin var s:=ReadLnString('Вводите:'); s.ToWords.Where(x->x=ReverseString(x)). Where(x->x.Length>1).PrintLn; end.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган шалаш
program sovpadenie_strok;
uses crt;
var
s1,s2:string;
i:integer;
f:boolean;
begin
read(s1);
read(s2);
if (length(s1)=length(s2))then
begin
i:=1;
f:=false;
while(i<length(s1))and(f=false)
do
begin
if s1[i]<>s2[i] then f:=true;
i:=i+1
end;
if f=true then
write('Строки побуквенно не совпадают')
else
write('Строки побуквенно совпадают')
end
else
write('Строки разной длины')
end.