Помогите решить информатику: S=1/(1+2)+1/(1+2+3)+1/(1+2+3+4)+...+1/(1+2+...n)

Помогите решить информатику: S=1/(1+2)+1/(1+2+3)+1/(1+2+3+4)+...+1/(1+2+...n)

Задать свой вопрос
1 ответ
Var n,i,p: integer;
     s: real;
begin
  s:=0;
  p:=0;
  readln(n);
  for i:=1 to n do
    begin
    p:=p+i;
    s:=s+1/p;
    end;
  writeln(s);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт