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.