Home
О нас
Products
Services
Регистрация
Войти
Поиск
Niks666
@Niks666
July 2022
1
13
Report
136ж срочно составить программу паскаль
Please enter comments
Please enter your name.
Please enter the correct email address.
Agree to
terms of service
You must agree before submitting.
Send
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.
×
Report "136ж срочно составить программу паскаль..."
Your name
Email
Reason
-Select Reason-
Pornographic
Defamatory
Illegal/Unlawful
Spam
Other Terms Of Service Violation
File a copyright complaint
Description
Helpful Links
О нас
Политика конфиденциальности
Правила и условия
Copyright
Контакты
Helpful Social
Get monthly updates
Submit
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Vary, 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.