По заданному целому числу n вычислить сумму всех членов ряда до n-го члена включительно: 1 + 1/22 + 1/32 + 1/42 + … + 1/n2. Для самопроверки: точная сумма бесконечного ряда равна (π^2)/6.
Pascal const n = 10; var a : array [1..n] of integer; i : integer; max,min,ima,imi : integer; begin for i := 1 to n do readln (a[i]);
min :=a[1]; imi := 1; for i := 1 to n do begin If a[i] > max then begin max := a[i]; //поиск и сохранение ima := i; //max знач и его номер end; If a[i] < min then begin min := a[i]; //поиск и сохранение imi := i; //min знач и его номер end; end; a[imi] := max; a[ima]:=min;
var
sum,i,n: integer;
begin
sum=1;
for i:=2 to n do
sum=sum+(i*10+2);
writeln(sum);
end.
В качестве n введи большое число. Я ввел 10000
sum вышла = 1.86661169332018
На калькуляторе 3.14*3.14/6 =1.64
+- сошлось