Вычислить произведение: 1/2*1/3**1/n
erenyeger2398
3
17.08.2019 00:50
0
Другие вопросы по теме Информатика
liskotovich
19.09.2019 06:23
LaimZ
19.09.2019 07:01
Флаксария
19.06.2019 17:30
Vishenka220
19.06.2019 17:30
ВикторияПан
19.06.2019 17:30
Roma200511111gnh
19.06.2019 17:30
захар182
19.06.2019 17:40
dvaleeva45
19.06.2019 17:40
ilyuza2004p06tr4
24.05.2020 09:17
Популярные вопросы
- * Look at the adjectives. Which 3 describe people? Which describe places?...
1 - Какий явления происходить в мезосфере? А) Звездный дожд Б) Полёт самолёт В)...
2 - очень , Всего 3 задачи на Растворимость...
1 - в ходе социального опроса людей из города Z им предложили определить какие...
1 - 1 Find seven more words. N 0 N F 1 с T 1 o N A B L ΟΤΙ V HY 1 o o O M 1 C...
3 - Какое количество меди было выделено, если напряжение между электродами в растворе...
2 - История КазахстанаПочему исламская религия стала терять свои позиции в XIX...
2 - Ценность человеческой жизни в современном мире. Сочинение рассуждение...
2 - (12)Когда кругом много всего живого, принимаешь это как должное. (13)Но стоит...
3 - Вспомните, из каких произведений эти герои. Укажите названия произ- 3 ведений...
2
p:real;
begin
write('n = ');
readln(n);
p:=1;
for i:=1 to n do p:=p*(1/i);
writeln('p = ',p);
end.
Пример:
n = 5
p = 0.00833333333333333
var s.i,n:integer;
s:=0;
readln (n);
for i to n do
s:=s+1/i;
write ('сумма равна ', s);
end.