Question

Прошу помощи, язык Pascal.) Всем заранее спасибо)

Answer 1

// PascalABC.NET 3.3, сборка 1541 от 29.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var x3:=Power(ReadReal('x='),3);
  var (eps,s,k):=(1e-6,0.0,1);
  repeat
    var p:=1/(x3*k*k);
    if p<eps then break;
    s+=p; k+=1
  until false;
  Writeln(s)
end.

Пример
x= 2.6
0.0933512289982594

Задание 2 решить невозможно: не указано ни что нужно найти, ни что выводить.

begin
  var (n,r):=(0,0.0);
  while true do begin
    n:=0;
    var s:=ReadSeqRealWhile('Вводите:',x->begin n+=1; Result:=x>=0 end).Sum;
    if n>1 then begin if s>0 then r+=1/s end
    else
      if n=1 then break
    end;
  if r<>0 then Writeln('R=',1/r)
  else Writeln('Сопротивление цепи бесконечнo')
end.

Пример
Вводите: 5.2 2.7 -1
Вводите: 6 3.5 9.2 8 1.4 -2
Вводите: 10 -1
Вводите: 15 24 9 3 5 24 -1
Вводите: -1
R=3.64073957904102