Напишите программу(в Паскаль) нахождения суммы S=1+1/2+1/3+...1/n, где n - натуральное число.
Напишите программу(в Паскаль) нахождения суммы S=1+1/2+1/3+...1/n, где n - натуральное число.
Гость
Ответ(ы) на вопрос:
Гостьvar n,s:real;
begin
readln(n);
s:=1;
for var i:=2 to n do s:=s+1/i;
writeln('s=',s);
end.
Гость// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
Writeln(SeqGen(ReadInteger('n='),x->1/x,1).Sum)
end.
Тестовое решение:
n= 20
3.59773965714368
Не нашли ответ?
Похожие вопросы