Question

помогите пожалуйста,задача поставила меня в тупик:
вывести на экран сумму ряда чисел 110+111+112...1n, где N определяется пользователем.​

Answer 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 >= 10

Answer 2

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