Паскаль.Помогите исправить программу под эту формулу:1+(1/(1+2))+(1/(1+2+3))+(1/(1+2+3+4))+(1/(1+2+...+n)) var s : real; i, n : integer; begin s := 0; read (n); for i := 1 to n do s := s + 1 / i; writeln (s); end.
Паскаль.Помогите исправить программу под эту формулу:1+(1/(1+2))+(1/(1+2+3))+(1/(1+2+3+4))+(1/(1+2+...+n))
var
s : real;
i, n : integer;
begin
s := 0;
read (n);
for i := 1 to n do s := s + 1 / i;
writeln (s);
end.
Гость
Ответ(ы) на вопрос:
Гостьvar
s : real;
i, n, s1: integer;
begin
s := 0;
s1:=0;
readln (n);
for i := 1 to n do
begin
s1:=s1+i;
s := s + 1 / s1;
end;
writeln (s);
end.
Пример:
5
1.66666666666667
Не нашли ответ?
Похожие вопросы