помогите пожалуйста,задачка поставила меня в тупик:вывести на экран сумму ряда чисел

Помогите пожалуйста,задачка поставила меня в тупик:
вывести на экран сумму ряда чисел 1\10+1\11+1\12...1\n, где N определяется юзером.

Задать свой вопрос
1 ответ

var

   n : integer;

   s : real;

   

begin

   write('введите n ');

   readln(n);

   for var i := 10 to n do s += 1/i;

   writeln('s = ', s);

end.



n обязано быт n gt;= 10

Пашок Коноз
var n : integer; s : real;begin write('введите n '); readln(n); for var i := 10 to n do s += 1/i; writeln('s = ', s);end.ответ n >= 10
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт