Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
далина3
04.11.2021 17:52 •
Информатика
Вычислите s=1/1! +1/2! +1/3! +1/n! напишите программу ?
Ответ:
supervoron
03.10.2020 00:21
Var
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.
0,0
(0 оценок)
Ответ:
Znatok00011
03.10.2020 00:21
Vars:double;
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
кузя215
18.06.2022 17:52
Нужен алгоритм в кумире-через чертёжник написать 630049ДЕЛАТЬ В КУМИРЕ...
kantuz
27.02.2021 23:46
6. Визначити, які з одновимірних масивів описані правильно, а які ні? ( )...
elena0795
13.07.2020 01:42
Вопрос № за вопрос: 3 Что такое граф? o информационная модель, применяемая для описания объектов с одинаковыми наборами свойств o линия, применяемая для наглядного...
алина3860
02.06.2022 08:48
Решите задачу по PYTHON очень Заклинание – Перед тем, как ковёр полетит, надо сказать волшебное слово, а этот человек утаил его от меня. Вот негодяй! Абдулла кинулся...
nn814921
08.10.2020 00:55
Сколько звездочек будет напечатано в результате работы фрагмента программы? x := 1; while x = 6 do begin write( * ); x := x + 1; end;...
cuwilayab
14.08.2020 21:33
. Значение арифметического выражения:9^20 + 3^60 – 5 записали в системе счисления с основанием 3. Сколько цифр «2» содержится в этой записи?...
Ааа5678
12.09.2020 15:08
Определите значение переменной b после выполнения данного алгоритма: a := 3b := 11a := b - a * 2b := 50 / a * 4В ответе укажите одно целое число – значение переменной...
Анастейша1818
16.04.2021 16:31
Мальвина рисует акварельными красками (все краски различных цветов). Для рисования она выбрала розовый цвет. Данное сообщение несет 6 бит информации. Сколько цветов...
vikysyakurinna
28.10.2021 16:06
Дано 2 числа вивести максимальне з них...
margaRita2281
04.07.2022 16:29
Дан квадрат 15 × 15 клеток, в каждой клетке которого записано целое число. В левом верхнем углу квадрата стоит ладья. За один ход ладья может переместиться...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
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.