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.

Answer 2

Безусловно, это программа для компьютера. А где что-то иное требовалось?

Answer 3

а вы даже поленились сами написать

Answer 4

А вот теперь Вы уже хамите... И пытаетесь свои проблемы списать тех, кто решает задачи, строго ориентируясь на текст Вашего вопроса.

Answer 5

хамить начали вы

Answer 6

Все. Для начала бан на 60 минут.