• Помогите срочно решить задачу
    В Pascal
    S=1/2-2/3+3/4-5/6+....
    Цикл

Ответы 1

  • var \ i,n:integer;\\
s:real;\\
begin\\
    s:=0;\\
    n:=10; \\
    for \ i:=1\ to\ n \ do \\ \ \
     s:=s+power(-1,i \ div \ 2)*(i/(i+1));\\
     writeln(s);\\
 end.\\n-необходимая точность, 1000 хватает вполне (для типа реал)
    • Автор:

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

Войти через Google

или

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

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

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