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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.