Home
О нас
Products
Services
Регистрация
Войти
Поиск
razzbaine
@razzbaine
July 2022
1
5
Report
19 б!!! СРОЧНО!!!
напишите, пожалуйста, программу в паскале!!!
Вычислить р=а1*а2*а3*...*an, где аn= 2n-1/2^n (функция)
часть программы
for i:=1 to n do
a:=(2*i-1)/ f(2,i)
p:=p*a;
ПОЖАЛУЙСТА, 10 КЛАСС
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
danulpopov
var
p, a: real;
n,i:integer;
function f(n, i: integer):integer;
var j,res :integer;
Begin
res:=1;
For j:= 1 to i do
res:= res * n;
f:= res;
end;
begin
readln(n);
p:= 1;
for i:= 1 to n do begin
a:=(2*i-1)/f(2,i);
p:= p*a;
end;
Writeln('P = ', p:0:16);
end.
// P.S. Функция замедлит работу программы.
1 votes
Thanks 1
razzbaine
учитель сказал с функцией. Спасибо большое!
×
Report "f(2,i) p:=p*a; ПОЖАЛУЙСТА, 10 КЛАСС..."
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
var
p, a: real;
n,i:integer;
function f(n, i: integer):integer;
var j,res :integer;
Begin
res:=1;
For j:= 1 to i do
res:= res * n;
f:= res;
end;
begin
readln(n);
p:= 1;
for i:= 1 to n do begin
a:=(2*i-1)/f(2,i);
p:= p*a;
end;
Writeln('P = ', p:0:16);
end.
// P.S. Функция замедлит работу программы.