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

Ответы 1

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

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years