Дано целое положительное значение N. Требуется вычислить сумму
UlianaUhanova
2
17.05.2020 20:22
8
Другие вопросы по теме Информатика
е7гроошишгини
05.09.2019 15:00
Lapka298
21.07.2019 23:20
ден7гв
21.07.2019 23:20
AronP
29.05.2019 16:50
DlCE17
29.05.2019 16:50
ВанюткаВано
26.05.2019 11:40
nastyadanilina1
26.05.2019 11:40
vikkisitoff
26.05.2019 11:40
msvladimirovnalena
26.05.2019 11:40
Популярные вопросы
- Бабушка всех двигателей что это окружающий мир...
3 - Индустриальное общество – это: а) общество, состоящее из капиталистов –...
2 - Перечислите причины военных успехов ассирийцев!...
2 - За задаеие много .установить соответствия между понятиями и определениями:...
3 - Перевидите заранее ) to: you from: lcw teen outerwear collection...
1 - Плотность газа по воздуху = 2.562. вычислите массу 2*10^-3 м^3 газа при...
1 - Какие животные охраняются в таймырском заповеднике? по короче...
2 - Встоловую завезли апельсины мандарины и бананы.апельсины заняли3/5 всех...
1 - Найдите отношение 324 к 8 3.2 к 2(целым)2/5...
1 - Питание автотрофный и гетеротрофный питания организмов...
1
var
sum:real;
n,f,i:integer;
begin
readln(n);
i:=1;
f:=1;
sum:=1;
while i<n+1 do
begin
f:=f*i;
sum:=sum + (1/f);
i:=i+1;
end;
Writeln(sum:0:2);
end.