• Паскаль. вычислить сумму трех членов прогрессии 1, 1+1/2, 1+1/3, 1+1/4... которые меньше заданного числа В где 1<В<2

Ответы 1

  • прогрессия неправильная, т.к. первый элемент должен быть 1+1/1 = 2var b,sum:real; count, n:integer;beginreadln(b);count:=0;n:=1;while count<>3 do begin  if (1+1/n)<b then begin       sum:=sum+(1+1/n);       count:=count+1;  end;  n:=n+1;end;writeln('suma: ',sum);end.
    • Автор:

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

Войти через Google

или

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

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

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