Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
romauaparckhome
06.05.2022 17:00 •
Информатика
1. написать программу, которая выводит произведение чисел от 1 до 13 (13! )
Показать ответ
Ответ:
ИзмМалика
22.07.2020 19:17
Var
i:integer;
f:double;
begin
f:=1;
for i:=1 to 13 do f:=f*i;
Writeln('13!=',f:0);
end.
Результат выполнения программы:
13!=6227020800
0,0
(0 оценок)
Популярные вопросы: Информатика
rjt54
18.04.2022 08:02
2 задача: если формулы поменять местами (p:=p*a;a:=a+7;), какой ответ будет выводится?3 задача: за что отвечает переменная d, почему К:=10, какой ответ будет выводиться...
Помагайтыыыы
09.06.2021 04:40
Автоматическое устройство осуществило перекодировку информационного сообщения, первоначально записанного латинскими символами в 16-битном коде Unicode, в 7-битную...
taisia2305
23.03.2022 17:13
Вычислите обьем информаций в битах и байтах в словосочетании знание-это сила, сила- это победа. ...
даник293
06.09.2021 08:29
Какая память предназначена для работы с микропроцессором? * жесткий дисквнешняявнутренняягибкий диск...
frondron
16.01.2023 00:57
Найти сумму максимального и минимального элементов массива А(n,m), вывести на экран сумму и найденные элементы. Pascal прогу полностью...
giunel041
16.01.2023 00:57
Для чего нужны в тексте синонимы для избежания повторы для усложнения тексты для уточнения информации для увеличения объема текста...
anciferovalex
30.01.2020 13:19
Что делать, если в After Effects при использовании кисти для ротоскопии ошибка: несоответствие частоты кадров либо не найден видеоряд с полями....
pkulanina
04.02.2023 13:37
с информатикой. Надо решить с циклов....
chvitalie24
31.10.2021 23:32
Найти все целые двузначные числа, удовлетворяющие условию: остаток отделения на 5 равен 3. Цикл for, PascalABC...
Опа111прпрррр
25.02.2022 08:04
X=Y=Z=9 i XY=5,6 Z=X+Y X=Y=5 Z=X+Y XY=5,2 Z=X**Y Назад...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i:integer;
f:double;
begin
f:=1;
for i:=1 to 13 do f:=f*i;
Writeln('13!=',f:0);
end.
Результат выполнения программы:
13!=6227020800