Составить программку в Pascal.Безотлагательно.дано натуральное число N. отыскать сумму

Составить программку в Pascal.Срочно.дано естественное число N. отыскать сумму S=1+1/2+1/3+1/7...+1/(2N+1).

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


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

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

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

Войти на сайт