2/3+3/4+4/+10/11 составить программу в паскале

nastyagorcha nastyagorcha    2   13.09.2019 01:10    0

Ответы
sofa286 sofa286  21.08.2020 07:22
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

Вариант 1. Приблизительное решение.

begin
  Writeln('S=',2.To(10).Select(t->t/(t+1)).Sum)
end.

Результат
S=7.48012265512266

Вариант 2. Точное решение

uses NumLibABC;

begin
  var s:=Frc(0);
  for var i:=2 to 10 do s+=Frc(i,i+1);
  Writeln('Точное значение ',s,', приближенное ',s.ToReal)
end.

Результат
Точное значение 207349/27720, приближенное 7.48012265512266
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика