Нужна программа в турбо паскаль

Question

Нужна программа в турбо паскаль

---

Comments

нет

---

цензия

---

роде

---

слушай

---

так поможешь?

---

у меня проблемы полные с ней

---

информация интерестная

---

о мне бы помог кто-то)

---

но*

Answer 1

Uses Crt;

const
  n:array[1..3] of integer=(10,20,30);

var
  i,k:byte;
  s:real;

begin
  ClrScr;
  for i:=1 to 3 do begin
    s:=0;
    for k:=1 to n[i] do s:=s+1/(k*(k+1));
    Writeln('S(',n[i],')=',s,', |S-1|=',Abs(s-1))
    end;
  ReadKey
end.

Не могу проверить результат, но должно работать.
Ответы, полученные в PascalABC.NET 3.3:

S(10)=0.909090909090909, |S-1|=0.0909090909090909
S(20)=0.952380952380952, |S-1|=0.0476190476190478
S(30)=0.967741935483871, |S-1|=0.0322580645161292

Comments

было бы лучше еслиб мы какойто графический язык проходили

---

е так проще обычно

---

мне*

---

да программа работает

---

ты прям выручил))

---

у нас параллельно идёт изучение какогото языка с программирование блока какогото для автоматизации процесов

---

вот там и используеться какойто графический редактор