Пароль от почтового ящика в виде четырёхзначного числа вася зашифровал так: цифры, занимающие чётные разряды (нумерация разрядо ведётся справа налево начиная с нуля), циклически сдвигаются вправо, а нечётные-влево на колличество позиций, равных номеру разряда. так, например, циклический сдвиг цифры 7 на четыре позиции вправо даёт нам 1 (7-8-9-0-1 затем из нечётных цифр вычитается, а к чётным прибавляется1. в результате шифровки получилось число 3216. определите пароль от электронной посты васи

Действия выполняются в обратном порядке. последнее действие было "из нечетных цифр вычитается,а к четным прибавляется 1".из нечетных цифр вычли 1 и они стали четными (при вычитании единицы меняется четность), с четными все то же самое, только наоборот. значит нужно ко всем четным цифрам прибавить 1, а от нечетных отнять 1, тогда получится исходная цифра.3216 -> 2307.итак, знаем, что на предпоследнем шаге было число 2307. идем еще на шаг назад. "цифры,занимающие четные разряды (нумерация разрядов ведется справа налево начиная с нуля) циклически сдвигаются вправо,а нечетные - влево на количество позиций, равных номеру разряда". опять же, делаем наоборот. цифры на четных разрядах сдвигаем влево, а нечетные - вправо. количество позиций не меняется, только направление.2307 -> 5117пароль почты васи: 5117.традиционно 5117.семь сдвигаем вправо на 0.7 -> 7.один сдвигаем влево на 1.1 -> 0.один сдвигаем вправо на 2.1 -> 3.пять сдвигаем влево на 3.5 -> 2.получаем 2307.от нечетных цифр отнимаем 1, а к четным прибавляем.получаем 3216. что и было дано изначально.

//pascalabc.net версия 3.2, сборка 1367 begin       var s : = readlnstring('> ');       var r : = new regex('\bмама\b');       writeln('количество слов "мама": ', r.matches(s).count);       s : = r.replace(s, '');       s.println; end. все просто и понятно) только экранирующие символы пришлось поискать для слова целиком пример работы программы: > мама,мамам,мама,мама,мама количество слов "мама": 3 ,мамам,,мама,

Отдел +; использует вывод из "", приём; пер   массив: доступ к ряд из цел;   сч, макс: цел; указ   создать(массив, приём.;   от сч : = 0 до размер(массив^) - 1 вып     вывод.цепь("^");     массив[сч] : = приём.число()   кон;   макс : = 0;   от сч : = 0 до размер(массив^) - 1 вып     если массив[сч] остаток 4 = 0 и массив[сч] > макс то       макс : = массив[сч]     кон   кон;   вывод.чцел("^%d", макс, 0, 0, 0) кон .