Написать программку,которая вычисляет сумму первых n членов ряда 1+1/2+1/4+1/6 Количество

Написать программку,которая вычисляет сумму первых n членов ряда 1+1/2+1/4+1/6 Количество суммируемых членов ряда задается во время работы программы. Турбо паскаль

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


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

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

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

Войти на сайт