Даны числа от 1 до n.найти р: 1/1*1/2*…*1/n
mhjkglckktcfcmjkfg
2
21.05.2019 20:40
0
Другие вопросы по теме Информатика
Joker5855
06.06.2019 17:50
Tiktak222
06.06.2019 17:50
Minikotik2007
06.06.2019 17:50
didlof7
07.06.2019 21:00
минкп
08.09.2020 16:22
Teoman1Oztemel
08.09.2020 16:48
TN02122002
14.03.2021 14:51
pavlov0202
14.12.2020 13:35
софа336
14.12.2020 13:35
Популярные вопросы
- Поссорились двое друзей в процессе ссоры в порыве гнева один из них...
3 - Хохлатые хохотушки хохотом хохотали.как поставить ударение...
2 - Напишете по пять слов 1 и 2 спряжения глаголов...
1 - При взаимодействие пропина с водородом образуется: 1)пропан 2)пропен...
1 - Масса кальция в 250 г. известняка сасо3 равна...
2 - Турист за четыре дня 82 км. каждый день он проходил на 3 км меньше,чем...
1 - Столбиком 1) *7 умножить 6* равно 51* + *** равно ***3...
3 - Тело было брошено вверх с некоторой начальной скоростью vо и побывало...
3 - Синоним к выражению- влияние каталической церкви и папы римского...
1 - Длина тела детеныша белой акулы составляет три десятых длины взрослой...
1
uses Crt;
var i,n :integer; p:real;
begin
p:=1;
readln(n);
for i:=1 to n do
p:=p*(1/i);
writeln(p);
readln
end.
Program abc;
var P:real; N,x:integer;
begin
Readln(N);
P:=1;
For x:=1 to N do
P:=P* 1/x;
writeln(P);
end.