Вопрос по информатике:
Дано натуральное число n.Вычеслить произведение первых n сомножителей 1/2*3/4*5/6*....*2n-1/2n с используванием цикла с пост.условием Срочно на турбо паскаль
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 11.09.2018 12:22
- Информатика
- remove_red_eye 2256
- thumb_up 29
Ответы и объяснения 2
var
n, u, d: integer;
f: real;
begin
write('n = ');
readln(n);
u := 1;
d := 2;
f := 1;
repeat
f := f * (u / d);
u := u + 1;
d := d + 1;
until d > (2 * n);
writeln('Произведение: ', f:1:5);
end.
- 12.09.2018 09:48
- thumb_up 46
begin
write('n = ');
readln(n);
i:=0;
p:=1;
repeat
i:=i+1;
p:=p*(2*i-1)/(2*i); until i = n;
writeln('Произведение: ', p:7:5);
end.
Пример:
n = 5
Произведение: 0.24609
- 13.09.2018 23:33
- thumb_up 34
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.