помогите пожалуйста,задача поставила меня в тупик:
вывести на экран сумму ряда чисел 1\10+1\11+1\12...1\n, где N определяется пользователем.
вывести на экран сумму ряда чисел 1\10+1\11+1\12...1\n, где N определяется пользователем.
More Questions From This User See All
Answers & Comments
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
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