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

pascal while
Дано натуральное n. Вычислить:

в)1/sin1+1/sin1+sin2+...+1/sin1+...+sin(n).

  1. Ответ
    Ответ дан JonatanK128
    Program whilePaskal;

    var b, a: integer;

    sum: real;

    Begin

    ReadLn(a);

    b:=1;

    sum:= 0;

    while (b<=a) do

    Begin

    sum := sum+1/sin(b);
    b:=b+1;

    end;

    WriteLn(sum);

    end.
Самые новые вопросы