Надо! 10 рекомендацию и лучший ответ! ​

Program  h; var  i: integer; s: real; begin i: =0; while  i< =20 do begin i: =i+2; s: =s+1/i; end; writeln(s); end.   program h2; var  i: integer; s: real; begin for  i: =2  to  20  do begin if (i  mod 2=0)  then s: =s+1/i; end; writeln(s); end. 3)program chik; var  a,n,p,i: integer; begin  read(a,n); i: =2; p: =a; whiel  i< =n  do begin i: =i+1; p: =p*a; end; writeln(p); 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. что и было дано изначально.