Решить ребус a+ab+abc=bcb в паскале

Var   a, b, c: byte; begin   for a : = 0 to 9 do     for b : = 0 to 9 do       for c : = 0 to 9 do         if (a + single.parse(a.tostring() + b. + single.parse(a.tostring() + b.tostring() + c. =             single.parse(b.tostring() + c.tostring() + b. then         begin           writeln(string.format('{0} + {0}{1} + {0}{1}{2} = {1}{2}{1}   |   a = {0}; b = {1}; c = {2}', a. b. c.;         end; end.

Действия выполняются в обратном порядке. последнее действие было "из нечетных цифр вычитается,а к четным прибавляется 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. что и было дано изначально.

Машинно - зависимый    язык является внутренним языком эвм и представляет собой систему инструкций и данных, которые не требуют трансляции и могут непосредственно интерпретироваться и исполняться аппаратными средствами эвм. для  машинно-независимых языков  не требуется полного знания специфики компьютеров. с их можно записывать программу в виде, допускающем ее реализацию на эвм с различными типами машинных операций, привязка к которым возлагается на соответствующий транслятор.