Нарисовать вычислить сумму первых k слагаемых ряда - вопрос №841044711221321 от DianaSagatbekova 26.12.2022 02:08

Question

Информатика: Нарисовать вычислить сумму первых k слагаемых ряда : 1+1/(2^2)-1/(3^2)+1/(/(k^2) вот решение. var k,z,i: integer; s: real; begin readln(k); z: =-1; s: =1; for i: =2 to k do begin z: =-z; s: =s+z/(i*i); end; writeln( s = ,s); end.

DianaSagatbekova · Answer

Блок-схема - в прилагаемом файле....

Нарисовать вычислить сумму первых k слагаемых ряда : 1+1/(2^2)-1/(3^2)+1/(/(k^2) вот решение. var k,z,i: integer; s: real; begin readln(k); z: =-1; s: =1; for i: =2 to k do begin z: =-z; s: =s+z/(i*i); end; writeln('s = ',s); end.