Question

Решите срочно,пожалуйста

Answer 1

1 вариант

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

function Sink(k:real):=k+sin(k);

begin
  var y:=Sink(1)/Sink(4)+Sink(2)/Sink(5)+Sink(3)/Sink(6);
  Writeln(y)
end.

Результат
1.83681707009073

2 вариант

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

function Sink(k:real):=(k+sin(k))/(k+3+sin(k+3));

begin
  var y:=Sink(1)+Sink(2)+Sink(3);
  Writeln(y)
end.

3 вариант

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

function Sink(m,n:integer):real;
begin
  Result:=0;
  for var i:=m to n do Result+=(i+sin(i))/(i+3+sin(i+3))
end;

begin
  Writeln(Sink(1,3))
end.