Ответы на вопрос:
Var s: string; p: integer; begin s : = 'no or yes? '; if pos('yes', s) > 0 then begin p : = pos('yes', s); delete(s, p, 3); insert('no', s, p); end; end.
за первый ход перевернем первые 6 цифр получим 6 5 4 9 8 7 1 2 3
затем в получившимся ноборе перевернем последние 6 цифр получим 6 5 4 3 2 1 7 8 9 теперь в этой последоватильнасти перевернем первые 6 цифр и получим то что надо
Популярно: Информатика
-
esnira109837620.09.2020 06:43
-
nastushka20803.03.2023 22:33
-
maks643409.11.2021 06:38
-
BlackPorshe235628.03.2021 07:56
-
marta6216.02.2022 15:46
-
SleepWalker566919.08.2021 03:29
-
roksi10020030.12.2022 11:02
-
Alinamail0213.02.2023 19:25
-
машуня8922.09.2021 02:20
-
ура609.08.2022 15:57