Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
zroslama
21.06.2020 00:20 •
Информатика
Составьте програму вычисления произведения первых 7 натуральных чисел используя цикл.
Ответ:
PisarenkoEV1
03.10.2020 13:03
var
i,n,p:integer;
begin readln(n);
p:=1;
for i:=1 to n do p:=p*i;
write(p); end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Engineeeer
20.04.2021 21:06
Сгенерировать массив из 18 элементов случайных чисел от 0 до 100. вывести массив на экран в три строки,по 6 элементов в каждой строке. найти среднее арифметическое всех...
прграмма45
17.04.2021 08:41
Определите, сколько байт необходимо для кодирования слова сигнал в системе ascii...
Seperawar
28.07.2020 14:06
Запиши алгоритм сохранения рисунков в программе tux.paint...
Marinap0385
11.06.2022 22:10
Файл размером 120 кбайт передаётся через некоторое соединение со скоростью 3072 бит в секунду. определите размер файла (в кбайт), который можно передать за то же время...
arinamerkylceva
07.03.2020 13:01
Как решить уравнение x + x × 5 = 240?...
Vika3499
07.03.2020 13:01
А.алексин страшная .в чем заключается основная мысль рассказа?...
nosovadascha20
07.03.2020 13:01
Погодные и астрономические таблички древней греции...
polsmilе
07.03.2020 13:01
)сколькими можно составить разведывательную группу из трех офицеров и семи солдат, если всего 10 офицеров и 20 солдат?...
elenskaya3105
07.03.2020 13:01
Во всю закончите фразеологизм про бег...
Timofry
07.03.2020 13:01
Подбери и запиши подходящие по смыслу приставки.с одним из слов составь и запиши предложения .подчеркни главные !...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
i,n,p:integer;
begin readln(n);p:=1;
for i:=1 to n do p:=p*i;
write(p); end.