Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
kutirev123p
26.11.2022 12:15 •
Информатика
Составить программу вычисления n! (паскаль)
Ответ:
nikj12320
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 оценок)
Популярные вопросы: Информатика
naumchenkova87
24.08.2020 04:09
. правильность я на стипендии , не уверена что правильно...
enikandrova04
16.06.2021 13:00
Обчисліть значення виразу (121//5)%10а) 3б) 2в) 4г) 1...
katystolbova
01.03.2022 05:25
Что делать если удалил папку system64?!...
alinkass
29.10.2020 04:40
Информатика 9 класс Python программа.Массивы...
солнышко267
06.02.2021 21:21
. Даны целые числа a,b и c,промежутки между которыми разделены пробелом.Пусть все три из этих чисел являются положительными числами-1,а в противным случае в качестве результата на...
Human333
15.12.2020 13:44
Название какого поискового сервиса произошло от слова, которое означает десять в сотой степени? 1)яндекс 2)yahoo 3)google 4)рамблер...
Nodar2004
13.12.2020 04:02
Склавиатуры вводится строка. с новой строки вводится буква. составьте программу подсчета количества заданных букв в заданной строке. определить, является ли длина введенного слова...
1303081216
13.12.2020 04:02
Водной сказочной стране есть собственные денежные единицы биты в виде монет и байды в виде бумажных купюр причем 1 байт равен 8 битам незнайка по лабиринту так что бы собрать наибольшее...
teaego
04.07.2021 02:39
сделайте это не на компе а письменно...
guest246
08.09.2021 06:01
Укажи кількість речовини етанової кислоти, яка витратиться на взаємодію з 548 г барію....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.