Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
zaika787
06.04.2023 15:34 •
Информатика
Составить программу вычисления n! (паскаль)
Ответ:
Flarissa163
01.10.2020 12:39
Uses crt;
var a,i,pr:longint;
begin
readln(a);
pr:=1;
for i:=2 to a do
pr:=pr*i;
writeln(pr);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
983992087
21.01.2023 15:37
Вывести на экран в строчку все числа третьей сотни,оканчивающиеся на семь (в паскаль)...
NicholasM
21.01.2023 15:37
Найти все двухзначные числа, в записи которых есть цифра 5....
marelmrub
02.10.2020 08:38
Фруктовый магазин продает яблоки по афруктовый магазин продает яблоки по а руб. за кг., груши по в руб. за кг., апельсины по с руб. за кг. в первые два дня недели...
barmeb11
22.01.2020 10:14
Дан массив из n элементов целого типа. определить количество элементов, кратных a...
chmv555
22.01.2020 10:14
Сколько времени будет скачиваться аудиофаил размером 7200кбаит при иниернетсоеденении с максимальной скоростью скачивания 192 кбит.с...
SizovMarina
11.02.2023 07:29
Какие символы содержит таблица кодирования Unicode?...
egork9957
07.03.2023 17:11
Найдите первые четыре сичла последовательности заданной условием а1=2 и рекуррентной формулой 1)аn+1=3аn+1...
мим221
19.08.2021 01:04
Все двузначные числа, которые делятся на 5, с остатком 3?...
нчшрдтснь
07.03.2023 17:11
Четвероклассница маша и ее брат первоклассник миша решали для классов.в результате оказалось,что миша получил не 0 ,а маша -не 100 .на какое наибольшее число маша...
daryasergeryna
07.03.2023 17:11
Сумма корней( или корень, если он единственный) уравнения sin2x/sin7x=1 , удовлетворяющих условию 150 градусов x 220 градусов , равна...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var a,i,pr:longint;
begin
readln(a);
pr:=1;
for i:=2 to a do
pr:=pr*i;
writeln(pr);
end.