profile
Опубликовано 6 лет назад по предмету Информатика от tatarin14021

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

  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
Самые новые вопросы