// 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>
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган шалаш
Programm Pens;
var Year: integer;
begin
Readln ('Введите Ваш возраст:', Year);
Year := Year + 58;
Writeln('Ваш возраст выхода на пенсию: ', Year);
end;
(5*60*16*64)/1024=(75*2^2*2^4*2^6)/2^10=75*4=300(Мб)
Program Rick_and_Morty; //название поменяй
var x,y:integer;
Begin
write('введите x: ');
readln (x);
write('введите y: ');
readln (y);
if ((x<=0) and (y>=0) and (x*x+y*y<=36)) //тут условие
or ((x<=0) and (y<=0) and (x*x+y*y<=36)) //and как и, or как или
or ((x>=0) and (y<=0) and (x*x+y*y<=36)) // условие закончилось
then //если хоть одно условие верно то
writeln('(',x,',',y,') - входят в облость')
else // если не верно то
writeln('(',x,',',y,') - не входят в облость');
writeln('конец');
end.