Предмет: Информатика,
автор: Ayna2135
Паскаль.Помогите исправить программу под эту формулу: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.
Ответы
Автор ответа:
0
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
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
Похожие вопросы
Предмет: История,
автор: Nazik9292
Предмет: История,
автор: sofiaskoropad1
Предмет: Другие предметы,
автор: natasakudlaj834
Предмет: География,
автор: milashka27
Предмет: Математика,
автор: juliaxxxz2015