В слове программирование уничтожатся каждый второй символ; затем слово переворачивается, и снова уничтожается каждый второй символ. Эти действия повторяются до тех пор, пока не останется один символ. Какой это символ?

Ответ: "о"

программирование

п о р м и о а и

иаоимроп

и о м о

омои

о о

оо

о

Function StRevers (St : String) : String;

Begin

If Length (St) >1 then StRevers:=St[Length (St) ]+StRevers (Copy (St, 2, Length (St) - 2)) + St[1]

else StRevers:=St;

end;

Function Del2 (st : String) : String;

Begin

If Length (st) >0 then Del2:=st[1]+Del2 (Copy (st, 3, Length (st) - 2)) else Del2:='';

end;

Var

S : String;

Begin

S:='программирование';

While Length (S) >1 do S:=StRevers (Del2 (S)) ;

Writeln (S) ;

end.