Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Aleksey311
17.08.2021 12:54 •
Информатика
Реьят напишите программу вычисления выражения: s=1! +2! +3! ++n! используйте функцию вычисления факториала
Показать ответ
Ответ:
Marii111
23.09.2020 08:54
Var n,i,s:integer;
function fact(k:integer):integer;
var j,f:integer;
begin
f:=1;
for j:=1 to k do f:=f*j;
fact:=f;
end;
begin
write('n='); readln(n);
s:=0;
for i:=1 to n do s:=s+fact(i);
writeln('s=',s);
end.
Пример:
n=5
s=153
0,0
(0 оценок)
Ответ:
755766
23.09.2020 08:54
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
function F(n:Integer):integer:=Range(1,n).Aggregate(1,(i,j)->i*j);
begin
Writeln(Range(1,ReadInteger('n=')).Select(x->F(x)).Sum);
end.
Тестовые решения:
n= 5
153
n= 10
4037913
0,0
(0 оценок)
Популярные вопросы: Информатика
Sveta0202
15.07.2021 13:47
плс кто знает как сдевать программу в паскале Напиши программу на Паскале для решения следующей задачи. Даны два числа b и c. Если числа равны, то замени каждое из них...
Алиса20090327
25.03.2023 10:25
Решите . Найдите площадь прямоугольника ABCD, если BM = 8, MN = 12....
zaira0
16.12.2022 03:37
Какое впечатление производит Доримена?...
alice108
13.02.2021 07:32
Вільям Портер – це псевдонім А) Р.Акутагави;б) Е.По;в) Г.Уеллса;г) О.Генрі очень ...
lyubashabelyaeva
13.10.2022 19:57
Значення в природі і життя людини ліс буду благодарна...
АрінаЛеснічая
28.11.2020 10:16
2-тапсырма. Берілген сөздерден сын есім жасаңдар. Акыл, білім, өнер, ой, жаз, күз, тау, теңіз, жұлдыз, ай, күн, бала...
TheAlexKillGame
11.07.2022 00:58
Запишіть словосполучення, розкривши дужки. Поясніть їх правопис: Президент України, Президент США, Альма-(м)атер, (б)удинок (у)чителя, Посол Республіки Польща, (г)оловний...
Telman07
23.04.2023 22:16
К какому разряду относятся местоимения в данном предложении? Предрассветная тишь долго не нарушается никакими звуками, ничьими голосами. 1) личные 2) возвратное 3) вопросительно-относительные...
Nerzul2828818
23.04.2023 22:16
Наведіть рівняння реакцій, що ілюструють чотири різн до-бування кальцій карбонату....
насьть
03.06.2021 09:56
Укажіть, чого із зазначених даних, НЕ повинно бути зазначено у заяві про прийняття на роботу. А) номер телефону Б) адреса В) прізвище, ім’я Г) номер банківської карти...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
function fact(k:integer):integer;
var j,f:integer;
begin
f:=1;
for j:=1 to k do f:=f*j;
fact:=f;
end;
begin
write('n='); readln(n);
s:=0;
for i:=1 to n do s:=s+fact(i);
writeln('s=',s);
end.
Пример:
n=5
s=153
function F(n:Integer):integer:=Range(1,n).Aggregate(1,(i,j)->i*j);
begin
Writeln(Range(1,ReadInteger('n=')).Select(x->F(x)).Sum);
end.
Тестовые решения:
n= 5
153
n= 10
4037913