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

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

Niks666 @Niks666

July 2022 1 22 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

Помогите составить программу в паскале 56.б...

Помогите пожалуйста составить программу Паскаль 6 n=5 m=4...

Помогите составить программу в паскале, срочно надо 141в...

Помогите составить программу Паскаль 1 задание, чтобы 15 человек было...

Помогите, паскаль авс 41.а...

помогите составить программы для первых двух заданий срочно (вариант 5)в паскале...

помогите составить программы для третьего и четвертого заданий срочно (вариант 5...

помогите составить программы в паскале в 2-х заданиях 5 вариант(в табличке13)...

Применить закон киргофа к этой цепи, формулу этой цепи...

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

Helpful Links

Helpful Social