Var s, s1, sn: string; i, n, p1, p2: integer; begin readln(s); p1 : = pos(' ', s) - 1; n : = length(s); i : = n; while s[i] < > ' ' do i : = i - 1; p2 : = i + 1; s1 : = copy(s, 1, p1); sn : = copy(s, p2, n + 1 - p2); s : = sn + copy(s, p1 + 1, p2 - p1 - 1) + s1; writeln(s) end.
Спасибо
Ответ дал: Гость
в условии не указано но для кодирования используется фраза "в памяти " при этом для нахождения кода шифрованной буквы нужно к коду исходной буквы прибавить код буквы из предложения к первой букве прибавляем код первой буквы предложения ко второй код второй итд т.
а для расшифровки эти коды нужно вычитать, получаем
в п а м я
3 17 1 14 33
п щ о я к
17 27 16 33 17
-
3 17 1 14 33
14 10 15 19 17
м и н с к
н щ ё п
15 27 7 17
-
3 17 1 14
12 10 26 3
к и е в
Ответ дал: Гость
у нас интересные школьные дела. мы выпускаем свою газету, куда любой ученик может написать заметку и нарисовать рисунок. участвуем в школьных олимпиадах. а потом лучших на линейке. в феврале у нас проходит неделя наук. на этой неделе проходит много конкурсов, открытых уроков и интересных соревнований.
Популярные вопросы