Ответы на вопрос:
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( div 2)+ div 2)) else rez: = copy(s,1,(l div 2)-1) + copy( div 2)+ div 2)); writeln(rez); end.
Популярно: Информатика
-
HOHOL66628.05.2022 06:41
-
rasputniya27.12.2020 23:40
-
sofiapristensk24.09.2020 05:08
-
Rube13454hill08.12.2022 21:39
-
Anastas1ya111.12.2020 10:14
-
МастерХ21.04.2022 04:17
-
знатокслава10.07.2022 19:50
-
popovapp2606.08.2021 22:24
-
Кристинаlike08.02.2021 13:46
-
uhon1k27.12.2020 12:00