Ответы
Ответ дал:
0
var
y, s, d: real;
i, n, j: integer;
function factorial(N: integer): longint;
begin
if N = 0 then factorial := 1
Else factorial := factorial(N - 1) * N
end;
begin
readln(n);
s := 1;
for i := 2 to n do
begin
d := 1;
for j := 2 to i do
d := d + (1 / j);
s := s + (factorial(i) / d);
end;
write(s);
end.
y, s, d: real;
i, n, j: integer;
function factorial(N: integer): longint;
begin
if N = 0 then factorial := 1
Else factorial := factorial(N - 1) * N
end;
begin
readln(n);
s := 1;
for i := 2 to n do
begin
d := 1;
for j := 2 to i do
d := d + (1 / j);
s := s + (factorial(i) / d);
end;
write(s);
end.
Ответ дал:
0
Видите ли, я всегда проверяю контрольное решение каким-то добавочным средством. Магистру несолидно выкладывать решения с ошибками.
Ответ дал:
0
Значит я подсчитывал конечное только
Ответ дал:
0
В этом ошибка
Ответ дал:
0
Так поправьте. У Вас другая формула считается.
Ответ дал:
0
var
y, s, d: real;
i, n, j: integer;
function factorial(N: integer): longint;
begin
if N = 0 then factorial := 1
Else factorial := factorial(N - 1) * N
end;
begin
readln(n);
s := 1;
for i := 2 to n do
begin
d := 1;
for j := 2 to i do
d := d + (1 / j);
s := s + (factorial(i) / d);
end;
write(s);
end.
y, s, d: real;
i, n, j: integer;
function factorial(N: integer): longint;
begin
if N = 0 then factorial := 1
Else factorial := factorial(N - 1) * N
end;
begin
readln(n);
s := 1;
for i := 2 to n do
begin
d := 1;
for j := 2 to i do
d := d + (1 / j);
s := s + (factorial(i) / d);
end;
write(s);
end.
Похожие вопросы
2 года назад
2 года назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад