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

Ответы (1)

Тэона 15.03.2025 4

Ответ: "о"

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

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.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика: