сервис вопросов и ответовнаписать программу в паскале
10-11 класс|
|
Прикрепленные изображения
Olkom76
19 апр. 2016 г., 4:05:46 (8 лет назад)
6piyon
19 апр. 2016 г., 6:52:20 (8 лет назад)
function Fact(n:integer):longint;
begin
if n=1 then Fact:=1
else Fact:=n*Fact(n-1)
end;
function Prod(k:integer):double;
var
i:integer;
p:double;
begin
p:=1;
for i:=2 to k do p:=p*sqr(i)/(sqr(i)+2*i+3);
Prod:=p
end;
var
P:double;
k:integer;
begin
P:=0;
for k:=4 to 8 do
P:=P+Fact(k+1)/Prod(k);
Writeln('P=',P)
end.
Тестовое решение:
P=13865934.5196429
Ответить
Другие вопросы из категории
Составить блок схему
Допустим
вы получили наследство в 1.000.000$, После долгих раздумий вы решаете, что
будете жить на 800$ в месяц. На сколько лет вам хватить
наследства.
Число 11010111 в двоичной системе счисления соответствует числу в восьмеричной системе счисления
А) 494
В) 125
С) 76
D) 327
Читайте также
1.тема циклы со сщетчиком.Написать программу в паскале для ввода с клавиатуры 15 чисел и вывода номеров отрицательных элементов.
2.написать программу в паскале
f(x)=2(sin*sin)x+1
Помогите написать программу в паскале. Задание:На плоскости даны 2 точки А (х1; у2) и В (х2; у2), определить какая из них находится дальше от начала коо
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
Написать Программу в паскале которая посчитала бы 5^123 (это цикл как бы должен быть)
http://primat.org/index/0-128 вот сайт что бы написать программу.
Помогите написать программу по Информатике! Найти произведение двузначных нечетных чисел, кратных
13.
Нужно написать программу на цикле с предусловием, на Паскале.
Написать программу Паскаль))) срочно!)))
Ввести с клавиатуры натуральное число.написать программу, которая определяет, кратна ли сумма его цифр 6.
Вы находитесь на странице вопроса "написать программу в паскале", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.