Int i = ( ((x==y)||(y==z)||(z==x))&&( (x % 2 == 0)||(y % 2 == 0) )? 1 : 0 );
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var s:=ReadLnString('Вводите:');
s.ToWords.Where(x->x=ReverseString(x)).PrintLn;
end.
<u><em>Тестовое решение:</em></u>
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган и с в шалаш
<u>Вариант, если исключить однобуквенные:</u>
// 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.
<u><em>Тестовое решение:</em></u>
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган шалаш
На паскале
---
uses crt;
var a,b,max: integer;
begin
writeln('Вводите последовательность. Окончание последовательности - 0.');
readln(a);
max:=a;
while a<>0 do begin
if (a>max) then max:=a;
readln(a);
end;
writeln('Наибольшее число последовательности: ',max);
<span>end.</span>
Если в байтах: 112986270
если в мега байтах: 107.7521038