Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
0004556189
21.02.2020 21:04 •
Информатика
Найти 1! +2! +…+n! . используйте функцию нахождения факториала, т.к подается на вход и получается результат.
Показать ответ
Ответ:
soktomunkuev20
06.10.2020 12:24
var
N, J: Word;
sum: Integer;
function factorial(N : word) : longint;
var
i : integer;
f : longint;
begin
f := 1;
for i := 2 to n do
f := f * i;
factorial := f
end;
begin
write('Введите N: ');
readLn(N);
sum := 0;
for J := 1 to N do Inc(Sum, Factorial(J));
write('Сумма равна: ');
writeLn(Sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Devil536
08.03.2022 08:43
Напишите программу-викторину, которая задаёт три во и предлагает пользователю на них ответить. Переход на следующий во не происходит до тех пор, пока пользователь не ответит...
Тунеков23
08.06.2022 15:35
решить Пусть a = 123. Чему будет равно новое значение a после выполнения команды a:= a + 1? Что означает запись «a:= a + b»?...
hashedhashed1
27.02.2020 08:32
Информатика Сообщение занимает 5 страниц по 40 строк, в каждой строке записано по 50 символов. Информационный объём всего сообщения равен 28 800 байтам. Сколько двоичных разрядов...
рамиля28
28.01.2021 02:49
В чем отличие компьютерных игр от игр на улице с друзьями...
Aixerel
11.10.2021 02:33
Написать сообщение на тему Всемирная компьютерная сеть...
druy071
07.03.2020 09:33
5. Ребята из 8-го класса любят ходить в кино. Известно, что за последнюю неделю 15 ребят из класса посмотрели фильм «Довод», 11 человек – фильм «Стрельцов», из них 6 смотрели...
Coova
18.02.2021 12:27
Решите Время до завтра...
дарья1644
28.06.2022 18:30
Пробанд - глухонемая девочка. Ее брат, мать и отец - здоровы. Со стороны отца. Тетя и бабушка здоровы, а дед - глухонемой. У матери пробанда есть глухонемой брат и здоровые брат...
gamerXpro
06.01.2023 01:48
На соревнованиях по прыжкам в длину Улан показал следующие результаты (в метрах):...
СаняDots
15.12.2021 03:42
При прокаливании нитрата калия выделилось 5.6 л кислорода. Найти массу нитрата калия....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
N, J: Word;
sum: Integer;
function factorial(N : word) : longint;
var
i : integer;
f : longint;
begin
f := 1;
for i := 2 to n do
f := f * i;
factorial := f
end;
begin
write('Введите N: ');
readLn(N);
sum := 0;
for J := 1 to N do Inc(Sum, Factorial(J));
write('Сумма равна: ');
writeLn(Sum);
end.