Question

136ж срочно составить программу паскаль

Answer 1

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.

Answer 2

Видите ли, я всегда проверяю контрольное решение каким-то добавочным средством. Магистру несолидно выкладывать решения с ошибками.

Answer 3

Значит я подсчитывал конечное только

Answer 4

В этом ошибка

Answer 5

Так поправьте. У Вас другая формула считается.

Answer 6

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.