Нарисовать вычислить сумму первых k слагаемых - вопрос №8411349112213212 от ichinichi 10.08.2021 08:28

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.

ichinichi · 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.