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

samnsk100617 samnsk100617    1   26.06.2019 12:20    0

Ответы
vadimmoroz903 vadimmoroz903  21.07.2020 10:20
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика