Найти сумму: s=2/(3*3)-4/(5*9)+6/(7*27)-7/(9*81)+10/(11*243) формат вывода данных. s=1, 157

Кажется,  ты  ошибся.  4  слагаемое  должно быть 8/(9*81) s: =0; for  i : = 1 to 5 do begin a : = 2*i  /  (2*i+1) / (exp (i*ln (; //  exp (i*ln (3)) = 3^i, но в паскале нет степеней. if  (i mod  2  = 0)  then a  : = -a; s: =s+a; end; write (s); end. а  вот  форматов вывода в паскале я не знаю. с этим сам разбирайся.

Program zadanie1; var n: integer;               rn: int64; {} function f(arg: integer): int64; var fi: integer; begin               f: =1;               for fi: =1 to arg do begin                               f: =f*fi               end end; {} begin               readln(n);               rn: =f(n);               writeln(rn);               readln end.

Program m;   var old, new: real;   k,n,i: integer;   begin   repeat   write('vvod posl n= ');   readln(n)   until n> 0;   write('vvod x= ');   readln(old);   k: =0;   for i: =2 to n do   begin   write('vvod x= ');   readln(new);   if new*old< 0 then k: =k+1;   old: =new;   end;   if k> 0 then   writeln('posledovatelnost menyaet znak ', k, ' raz')   else writeln('posledovatelnost ne menyaet znak');   end.