Дано естественное число n. Вычислить, используя while и repeat:

Дано натуральное число n. Вычислить, используя while и repeat: 1/sin1+1/(sin1+sin2)+...+1/(sin1+sin2+sinn)

Задать свой вопрос
1 ответ
Begin
    var n := ReadlnInteger('n =');
    var i := 1;
    var s1,s2:real;
    while i lt;= n do
    begin
        s1 += Sin(i);
        s2 += 1/s1;
        i +=1;
   end;
   Write('S = ',s2)
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт