• Помогите пожалуйста
    Среда программирования "КуМир"
    В принципе, разберусь и в паскале, если вам будет легче

    question img

Ответы 6

  • Вероятно, можно просто удвоить это число
  • Или нет
  • var i,n,k: integer; s: real; begin write('n = '); readln(n); k:=1; s:=0; for i:=1 to n do begin s:=s+(k/i); k:=-k; end; writeln('сумма: ',s); end.
    • Автор:

      sherlyn
    • 6 лет назад
    • 0
  • Блин, точно
  • Всё же элементарно
    • Автор:

      laneuxpz
    • 6 лет назад
    • 0
  • 3var n: integer;s: real;begins:=0;n:=1;while n <= 3*3*3*3*3*3*3*3 do begins:= s+1/n;n:= n*3;end;writeln(s);end.4var a: integer;s: real;begins:=1;readln(a);for var i:=1 to a do begins:= s-1/(i+1);s:= s+1/(i+2);end;writeln(s);end.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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