В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
bryuho20011
bryuho20011
09.10.2021 02:42 •  Информатика

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

Показать ответ
Ответ:
Дончара
Дончара
30.08.2020 14:18
ответ: "о"

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

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.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота