Регистрация
Войти
Стать экспертом Правила
Информатика

Определить сумму s=1/2+2/3+...+n/(n+1)

ОТВЕТЫ
var s: real;
    i,n: integer;
begin
  write('n = ');  readln(n);
  s:=0;
  for i:=1 to n do s:=s+i/(i+1);
  writeln('сумма: ',s);
end.

n = 10
сумма: 7.98012265512266





192
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам