Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
svetaabc
08.05.2021 16:47 •
Информатика
Напишите программу вычисления суммы факториалов всех нечетных чисел от 1 до 9 (паскаль)
Показать ответ
Ответ:
gsgshhshsbababa
12.07.2020 07:26
Var n, i: integer;
function fact(n: integer): integer;
begin
if n = 1
then
fact := 1
else
fact := fact(n - 1) * n;
end;
begin
for i := 1 to 9 do
if i mod 2 = 1
then
writeln(fact(i));
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Гелик2132
08.05.2023 08:12
Определи основание системы счисления числа 37610. ответ: ....
mishustinat
23.04.2020 07:16
Розташувати в масиві R(n) спочатку позитивні, а потім негативні елементи масиву Z(n), де 0 =n =40....
илья1598
08.10.2021 18:32
Выдает ошибку, подскажите как исправить? class Book: File .py , line 8, in Book print(f { Название : 30 }{ Автор : 20}{ Год издания : 5} ) ValueError: Unknown format code...
Апуля11
01.04.2022 07:38
Із масиву E[i,j]m,n побудувати вектор,кожний елемент якого дорівнює добутку max та min елементів рядка...
Kaldomova2014
08.09.2022 08:48
Определи тип выделенного объекта. Охрана природыБерегите природу!ieПо4 классАLизображениеВидеозаголовокаудиолощ, а ) ис0902021...
papapapapap
08.02.2023 22:41
Выведи на экран большее из двух данных чисел.Запиши программу на языке Паскаль, выведи ответ на экран, если 1,63752 и 2,5179.На экранеvvedi dva chisla1,63752 2,5179...
anastasiya5budkevich
02.01.2020 10:24
Вычисли сумму чисел в MS Excel. 1. 224; 7; 1895; 90,3 2. 224; 7; 1895; 90,3; 45,9...
Черпачок
27.12.2021 16:11
Расположите однокоренные слова в том порядке в каком они образованы друг от друга слова записывайте образец: туп-ой_туп-и-ть_за-туп-и-ть_за-туп-и-ть-ся 1)землянка земляничка...
polinas2005
27.12.2021 16:11
Перевести vater rief zu mir herüber na fräulein lässt du dir von kavalieren die matratzen aufblasen !...
lamptambler
27.12.2021 16:11
Сколько букв и звуков в словах вся и все...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
function fact(n: integer): integer;
begin
if n = 1
then
fact := 1
else
fact := fact(n - 1) * n;
end;
begin
for i := 1 to 9 do
if i mod 2 = 1
then
writeln(fact(i));
end.