Вычислите s=1/1! +1/2! +1/3! +1/n! напишите программу ?
dan776
1
10.07.2019 12:20
1
Другие вопросы по теме Информатика
malafeecheva17
19.05.2021 11:07
justnero
21.04.2020 12:21
varenik506
21.04.2020 12:20
Kinder1644
21.04.2020 12:20
tyranball
21.04.2020 12:20
enigma75
08.09.2019 18:20
makhero111
28.10.2020 10:03
senyazer
28.10.2020 10:06
ChrisUnte
28.08.2019 02:40
Популярные вопросы
- Синтакчический разбор утром в низинах расстилался туман...
3 - 3 сынып ТЖБ бар ма осы токсан...
1 - Анализ вклада духовных культурных достижений народов . Азии в развитие...
2 - Найдите синус и косинус угла АВС, показанного на клетчатой бумаге...
2 - Матемаика 4,з решит задачу найти плошадь...
3 - построить график функции и выписать их свойства...
2 - Задание сумативного оценивания за 1 четверть по предмету русский язык 8й...
2 - Задание 7. Начертите угол АОВ, равный 80°. Дополните лучи ОА и ОВ до прямых....
2 - Кестені толтырыңыз деген ️...
2 - за сколько часов Айбек проехал 346 километров от села до города если он...
1
s:real;
i,n,f:integer;
begin
readln(n);
s:=0;
f:=1;
for i:=1 to n do
f:=f*i;
for i:=1 to f do
s:=s+(1/i);
writeln(s);end.
n,i:integer;
f:longint;
begin
f:=1;
writeln('Vvedite n');
readln(n);
for i:=1 to n do
begin
f:=f*i;
s:=s+(1/f);
end;
writeln('S = ',s);
end.