Question

Помогите пожалуйста решить 6,7 задачи.Вопрос жизни и смерти.
6)N-натуральное,a-действительное.Вычислите:1/a+2/a+...+n/a.
7)n-натуральное.Вычислите:1/sin1+1/sin1+sin2+...+1/sin1+...+sinn

Answer 1

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!

№6

begin
  var n:=ReadInteger('n=');
  var a:=ReadReal('a=');
  SeqGen(n,i->i/a,1).Sum.Println
end.

Пример
n= 10
a= 3.5
15.7142857142857

№7

begin
  var n:=ReadInteger('n=');
  var (s,den):=(0.0,0.0);
  for var i:=1 to n do begin
    den+=Sin(i); s+=1/den
    end;
  s.Println
end.

Пример
n= 5
8.84574027314699