SmokingCrescent
Опубликовано 6 лет назад по предмету Информатика от SmokingCrescent


Составьте программу, которая находит сумму чисел, обратных числам целым числам от 1 до N, т.е. S=1/1+1/2+1/3+...+1/N.

  1. Ответ
    Ответ дан asoiiu
    program abc;var  n, i: integer;  s: real;beginwrite('Введите количество чисел: ');  readln(n);  for i := 1 to n do    s := s + 1 / i;  write('Сумма обратных чисел = ', s);end.
Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц