Выполните дешифрование предложения:
ЖРМТЖИ СИГЯСН ПТВАВЯ ОТЕОНЛ СЙОМЙИ ЯЛКСОО ЗЕОРИЙ​

лцоагутвьв втв втцтчьцлдвьв

Объяснение:

оылытв вт втв вовочи втвоч вт вовлы чтв ТТ ятв в чотыья ч в вьтулцичьыьц вьч вьв лы члырвла вь чоытс вьатс ьятцтчлвтв твтв

var i: integer;

begin

  for i: = 35 to 87 do

      if i mod 7 =1 then

          writeln(i);

end.

ошибка в том что натуральный логарифм (-1) не существует

program summa; uses crt; var n,i: integer; s: real;

p1,p2: integer; begin clrscr; writeln ('vvedite n'); readln (n); s: =0;

p1: =-1;

p2: =2; for i: =1 to n do

begins: =s+p1/p2;

p1: =-p1;

p2: =p2*2;

end; writeln ('s=', s); readln; end.