Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
DashaSid
11.09.2021 21:55 •
Информатика
Найти произведение 1 • 2 • 3 • • n в паскале, те а цикл
Ответ:
artemdychokp00pti
08.10.2020 00:50
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var n:=ReadInteger;
var p:=1.0;
for var i:=1 to n do p:=p*i;
write(p);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
applevip
27.02.2021 21:02
Исполняемый файл-файлы, содержащие готовые к исполнению программы а).exe б).swf в).mpeg...
sonif1206
15.04.2021 19:39
Написать программу печатующую все четные числа от 2 до 100,включительно....
P4k3T
15.04.2021 19:39
Напишите программу для получения периметра пятиугольника...
Mамикс
15.04.2021 19:39
Напишите программу которая считает периметр пятиугольника...
eva70218
27.02.2020 14:36
Дан целочисленный массив a размера n. переписать в новый целочисленный массив в все четные числа из исходного массива (в том же порядке) и вывести размер массива в...
murvil228
26.08.2020 01:08
Современные размеры жестких дисков?...
kochanovaleksa
15.05.2023 08:31
Программа pascal abc : введите 70 чисел, выведите сумму чисел из введённых меньших 100...
zarinayespulov
15.05.2023 08:31
Статья,набранная на компьютере объёмом 50 кб, содержит 25 страниц, на странице в каждой строке 32 символа. в одном из представлений unicode каждый символ кодируется...
nastagaeva0672
15.08.2021 01:40
Подсчитать мощность алфавита, с которого написан текст из 800 символов, имеющто информационный объем 700 байт...
daaler
03.02.2022 12:08
На 150 внимание аккаунты пользователей, публикующих спам или ответы не в тему в моих – подвергаются жёсткой проверке, чистке, и, в конечном счёте, я стараюсь добиваться...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
//Версия 3.3, сборка 1634
begin
var n:=ReadInteger;
var p:=1.0;
for var i:=1 to n do p:=p*i;
write(p);
end.