19 б!!! Безотлагательно!!!напишите, пожалуйста, программку в паскале!!! Вычислить р=а1*а2*а3*...*an,
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 КЛАСС
2 ответа
Даниил Бардезелишвили
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. Функция замедлит работу программы.
Вячеслав
учитель произнес с функцией. Спасибо огромное!
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Облако тегов