// 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.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган шалаш
var n,i,j: integer;
var res,sum: double;
begin
writeln('Введите n');
readln(n);
i:=1;
j:=1;
res:=0;
while (i<=n) do
begin
sum:=0;
j:=1;
while (j<=i) do
begin
sum:=sum+sin(j);
j:=j+1;
end;
res:=res+(1/sum);
i:=i+1;
end;
writeln('ответ: ',res:5:2);
end.