Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Vanpal03
28.09.2021 17:50 •
Информатика
Паскаль. по данному числу n вычислите 1+1/1! +1/2! +1/3! ++1/n!
Показать ответ
Ответ:
Qwertyuiopasdfghjkzz
08.10.2020 02:54
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var f: Integer->real:=x->range(1,x).Aggregate(Real(1),(x,y)->x*y);
var (sum,n):=(1.0,ReadInteger('n='));
for var i:=1 to n do sum+=1/f(i);
write(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
veragerasimova3
21.01.2020 00:08
Как сделать чтобы когда нажал на кнопку НАЗАД возвращалось всё назад Пайтон tkinter...
Bonyashechka
16.10.2021 15:13
Эргономиканын максаты кандай??...
виктор2282
23.01.2022 03:22
Pascal 2a2+3b3 |x2+y2| y+ – 1,5 1+2x+3x2+4x3 нужно написать на языке паскаль...
кируськаномер1
28.06.2021 18:37
Дәл бүгіннен бастап сұрақтар...
Victoria20066002
14.07.2021 17:18
При каком давлении газ, занимающий объем 2,3∙10^-4 м3, будет сжат до объема 2,25∙10^-4 м3, если температура газа останется неизменной? Начальное давление газа 0,95∙10^5...
0mixa0
17.09.2022 21:53
7. Три прямые AB, CD, EF пересекаются в точке 0 так, что прямая AB перпендикулярна прямой EF. Найдите сумму углов ZAOF-DOBLEOC....
dance7
10.08.2022 04:24
Определи род число и склонение имён существительных бежит по полю...
лох248
30.10.2022 16:10
1. Для правового государства характерно: 1. господство государственной власти 2. подчинение суда праву 3. приоритет прав социально-экономической элиты 4. социальное...
yudaeva78
30.04.2021 23:11
Сравнительная характеристика Обломова и Штольца...
alenaalefirova
22.02.2023 02:27
Доведіть нерівність -b(14-b)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//Версия 3.3, сборка 1634
begin
var f: Integer->real:=x->range(1,x).Aggregate(Real(1),(x,y)->x*y);
var (sum,n):=(1.0,ReadInteger('n='));
for var i:=1 to n do sum+=1/f(i);
write(sum);
end.