Дана строка. Если ее длина есть число нечетное, то удалить ее средний символ. В противном...

Question

Дана строка. Если ее длина есть число нечетное, то удалить ее средний символ. В противном случае после второго символа вставить строку 'www'

Answer 1

Var 
  s,a: string; 
  p: integer;
begin
  write('Введите строку: ');
  readln (s);
  a:='www';
  p:=length(s) div 2 +1;
  if length(s) mod 2 <>0 
    then delete(s,p,1)
    else insert(a,s,3);
  writeln(s);
end.

-------------Пример 1:----------------
Введите строку: 1234567
123567

-------------Пример 2:----------------
Введите строку: 123456
12www3456

Answer 2

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Цепь ИЗ "...\Отделы\Иное\";

ПЕР
  строка, память: РЯД 100 ИЗ ЗНАК;
  сч: ЦЕЛ;

УКАЗ
  ЕСЛИ ЧЕТ(ДЛИНА(строка)) ТО
    память[0] := строка[0];
    память[1] := 0X;
    Цепь.Добавить(память, "www");
    ОТ сч := 1 ДО ДЛИНА(строка) - 1 ВЫП
      память[сч + 3] := строка[сч]
    КОН;
    память[ДЛИНА(строка) + 3] := 0X
  ИНАЧЕ
    ОТ сч := 0 ДО ДЛИНА(строка) ДЕЛИТЬ 2 - 1 ВЫП
      память[сч] := строка[сч]
    КОН;
    ОТ сч := ДЛИНА(строка) ДЕЛИТЬ 2 + 1 ДО ДЛИНА(строка) - 1 ВЫП
      память[сч - 1] := строка[сч]
    КОН;
    память[ДЛИНА(строка) - 1] := 0X
  КОН

КОН Задание.