Найдите сумму элементов последовательности с точностью 0,001. нужно решение 2)s=1+2/(2*3)-4/(3*9)+6/(5*27)-8/(8 *81)+10/(13* ответ: 1.220 ! само решение.

Var e,a,s: real; a1,f,f1,f2,a3,z: integer; begin e: =0.001; s: =1; a: =1; z: =-1; a1: =0; f1: =1; f2: =1; a3: =1; while abs(a)> e do   begin   a1: =a1+2;   f: =f1+f2; f1: =f2; f2: =f;   a3: =a3*3;   z: =-z;   a: =z*a1/(f*a3);   s: =s+a;   end; writeln('s = ',s: 5: 3); end. результат: s = 1.220

конечно бред. оно логично звучит и без заполнения пробелов

думаю можно туда подставить тип компа. например мак или пк (вечная война между яблоком и мелкомягкими)

 

 

 

крик