Вычислить частичную сумму ряда s=1/2^2+1/3^2+1/4^2+ вычисление прекратить, когда модуль очередного слагаемого станет меньше 0, 001. проверьте, насколько сумма приблизилась к значению pi^2/6. 2 способа

program markovsp1; uses crt; const   eps=0.001; var   t,s: real;   i: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   writeln();   writeln('программа вычисляет частичную сумму ряда ');   writeln('  s=1+1/(2^2)+1/(3^2)+1/(4^2)+ ');   writeln('вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001');   writeln('способ 1 - используется цикл repeat');   writeln();   s: =0;   i: =1;   repeat      t: =1/((i)*(i));       s: =s+t;       //writeln('i=',i,'  t=',t: 0: 6,'  s=',s: 0: 6);       i: =i+1;   until abs(t)< eps;   writeln('s=',s: 0: 6,' (pi^2)/6=',(pi*pi)/6: 0: 6);   writeln('приближение к (pi^2)/6 равно ',s-(pi*pi)/6: 0: 6); end.program markovsp2; uses crt; const   eps=0.001; var   t,s: real;   i: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   writeln();   writeln('программа вычисляет частичную сумму ряда ');   writeln('  s=1+1/(2^2)+1/(3^2)+1/(4^2)+ ');   writeln('вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001');   writeln('способ 2 - используется цикл while');   writeln();   s: =0;   i: =1;   t: =1;   while t> eps do      begin          t: =1/(i*i);           s: =s+t;           //writeln('i=',i,'  t=',t: 0: 6,'  s=',s: 0: 6);           i: =i+1;         end;   writeln('s=',s: 0: 6,' (pi^2)/6=',(pi*pi)/6: 0: 6);   writeln('приближение к (pi^2)/6 равно ',s-(pi*pi)/6: 0: 6); end.

1) const n=10; var a: array[1..n]of integer; i: integer; begin     for i: =1 to n do           read(a[i]); writeln;     for i: =1 to n do           write(a[i]: 4); end. 2) var a: array[1..1000]of real; i,n: integer; begin   writeln('n ? ');   readln(n);     for i: =1 to n do         begin           writeln('input  ',i,' элемент');           readln(a[i]);         end; writeln;     for i: =1 to n do           write(a[i]: 4: 2); end. 3) var a: array[1..1000]of real; i,n: integer; begin   writeln('n ? ');   readln(n);     for i: =1 to n do         begin           a[i]: =random;           write(a[i]: 4: 2);           end; writeln; end.

Const    n = 15; var   mas: array[1..15] of integer;   i, max1, max2,  min, c, d: integer; begin   c: =-1;   max1: =-maxint;   min: =maxint;   max2: =-maxint;   randomize;   for i: =1 to n do     mas[i]: =random(101)-50;   write('массив:   ');     for i: =1 to n do     write(mas[i], ' ');   writeln;   for i: =1 to n do   begin     if (mas[i]> 0) and  (mas[i]> max1) then       max1: =mas[i];     if (mas[i] mod 2 < > 0) and (max2< mas[i]) then     begin       c: =i;       max2: =mas[i];       end;       if (mas[i] mod 2 < > 0) and (min> mas[i]) then     begin       d: =i;       min: =mas[i];     end;     end;   writeln('максимальный положительный элемент:   ',max1);   writeln('минимальный нечетный элемент:   ',min);   writeln('максимальный нечетный элемент:   ',max2);   if c< d then       writeln('максимальный элемент стоит раньше')   else     writeln('минимальный  элемент стоит раньше'); end.