Ответы на вопрос:
Var s: string; n: integer; begin writeln('введите строку с длиной, кратной трем: '); readln(s); n: =length(s) div 3; delete(s,n+1,n); write('результат: ',s) end. тестовое решение: введите строку с длиной, кратной трем: из строки середина будет удалена! результат: из строки ет удалена!
Популярно: Информатика
-
valeria20456706.06.2023 17:54
-
elmalfoy7311.02.2021 11:19
-
228778anonim22877814.04.2020 02:11
-
dahasha0515ozg6qu16.08.2021 03:10
-
sleepyfriend1823.09.2020 04:05
-
lelyaklochkova11.11.2020 11:34
-
iukhg03.05.2021 22:47
-
Polhova160603.04.2020 00:57
-
Дашакот234568102.06.2023 06:02
-
lolka14117.12.2021 00:37