Вслове программирование уничтожатся каждый второй символ; затем слово переворачивается, и снова уничтожается каждый второй символ. эти действия повторяются до тех пор, пока не останется один символ. какой это символ?
программирование п о р м и о а и иаоимроп и о м о омои о о оо о
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.
программирование
п о р м и о а и
иаоимроп
и о м о
омои
о о
оо
о
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.