Помогите решить задачку на языке паскаль. Срочно.Дано целое число N(amp;gt;0) Отыскать

Помогите решить задачку на языке паскаль. Срочно.
Дано целое число N(gt;0) Отыскать сумму 1-1/2-1/3.....-1/N(Вещественное число)

Задать свой вопрос
Владислав Сутыгин
что на месте ..... ?
Эмилия Заболотник
на месте многоточия числа. типа 1/6 1/7 1/9 и т.д. до N
Вика Адиятулина
сумма только с минусом, минус можно вынести
1 ответ
Var N,i:integer; s:real;beginwriteln('vvedite N');readln(N);s:=1;for i:=2 to N dos:=s-1/i;writeln('Summa = ',s);end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт