Question

Дано слово. если его длина нечётная, то удалить среднюю букву, в противном случае - две буквы

Answer 1

Program programma;
uses crt;
var s, rez: string;
    L: integer;
   
Begin clrscr;
      write('Введите слово: ');
      readln(s);
l:= length(s) ;
if l mod 2 =1 then
rez:= copy(s,1,(l div 2)) + copy(s,((l div 2)+2),(l div 2))
else
rez:= copy(s,1,(l div 2)-1) + copy(s,((l div 2)+2),(l div 2));
writeln(rez);
end.