• вычислите сумму первых n элементов:

    1-1\2+1\3-1\4+1\5-1\6+...

    Указание. Используйте внутри цикла оператор if odd(...) then ...

    else ...

Ответы 1

  •  // сумма 2 членов ряда = 1- 1/2+1/3=0.83333333 примерно 

    Program SumPosl;Uses Crt;var i,n:integer;      c:real;begin c:=1; clrscr; write('Введите n:' ); readln(n); for i:=2 to (n+1) do   if odd(i)=false then c:=c-(1/i)                 else c:=c+(1/i); writeln('Сумма n членов ряда:',c:5:5);  readkey;end.

    • Автор:

      alliekjrk
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years