Var s,a: string; p: integer; begin write('Введите строку: '); readln (s); a:='www'; p:=length(s) div 2 +1; if length(s) mod 2 <>0 then delete(s,p,1) else insert(a,s,3); writeln(s); end.
Пример 1: Введите строку: 1234567 123567
Пример 2: Введите строку: 123456 12www3456
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
