136ж срочно составить программу паскаль. Created by Niks666. informatika-ru

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

Niks666 @Niks666

July 2022 1 20 Report

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

Answers & Comments

ShirokovP

Verified answer

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.

2 votes Thanks 0

ShirokovP в экспоненциальной форме 6.76230700391526E+17

ShirokovP все работает=)

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

ShirokovP В этом ошибка

contrlc 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.

Answers & Comments

Verified answer

pomogite sostavit programmu v paskale 56b

pomogite pozhalujsta sostavit programmu paskal 6 n5 m4

pomogite sostavit programmu v paskale srochno nado 141v

pomogite sostavit programmu paskal 1 zadanie chtoby 15 chelovek bylo

pomogite paskal avs 41a

pomogite sostavit programmy dlya pervyh dvuh zadanij srochno variant 5v paskale

pomogite sostavit programmy dlya tretego i chetvertogo zadanij srochno variant 5

pomogite sostavit programmy v paskale v 2 h zadaniyah 5 variantv tablichke13

primenit zakon kirgofa k etoj cepi formulu etoj cepi

рекомендуемые вопросы

Helpful Links

Helpful Social