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

Дана строка s. удалите из неё среднюю букву, если длина строки нечётная или две средних в противном случае. на паскале авс с полным решением

Ответ:
DaraMarkos
DaraMarkos
07.08.2020 08:51
Var s: string;
    n,m: integer;
begin
  write('строка:  ');  readln(s);
  n:=length(s);
  m:=n div 2;
  if n mod 2 = 1 then delete(s,m+1,1)
  else delete(s,m,2);
  writeln(s)
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?