Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.