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

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