Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Chempionsyper
14.11.2022 09:17 •
Информатика
Написать программу , которая подсчитывает произведение натуральных чисел от 1 до n .
Показать ответ
Ответ:
daniil10457899Yb
07.10.2020 20:50
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(range(1,ReadInteger('n=')).Aggregate(Real(1),(x,y)->x*y));
end.
0,0
(0 оценок)
Ответ:
trinadsyear
07.10.2020 20:50
Var
i, n: integer;
P: real;
Begin
Write('n = ');
ReadLn(n);
P := 1;
For i := 1 to N do
P := P * i;
WriteLn('P = ',P);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
nagibator893067TITAN
10.11.2022 06:05
Вэлектронной библиотеке хранится 10000000 книг. для их удобного поиска решили ввести следующую систему обозначений - каждой книге присваивается идентификатор, состоящий из...
hkodzoeva
19.02.2020 01:27
Определите основание системы счисления числа 101111011 в двоичной ...
natata23081
09.04.2020 15:51
Алтынай өз жобасын принтерде баспаға шығармақша болды қандай әрекеттер орындайды? Құжатты баспаға жіберу үшін қандай әрекетер орындау керек...
СлишкомУмная1
25.06.2021 13:18
Для передачи секретного сообщения используется код, состоящий только из латинских букв (всего используется 25 различных символов). При этом все символы...
maria1020304050
04.04.2020 13:11
На одной странице размещается 60 строк текста по 25 символов в каждой строке. принтер печатает 12 страниц в минуту. за сколько секунд принтер напечатает 27000 символов?...
Валерия11111246
04.04.2020 13:11
Как 763 из 10 системы счисление перевести в двоичную восьмеричную и 16 систему счисления. ....
diana04s
09.02.2022 03:16
Вариант 6Составьте таблицу истинности и логическую схему для логического выражения...
слар
21.04.2020 11:32
Сделать предложение last summer my friends and i traveled about italy. отрицательным задать общий вопрос альтернативный k подлежащему и специальный...
Ангелина545454
21.04.2020 11:32
Водном из ниже предложений неверно употреблено выделенное слово. исправьте лексическую ошибку, подобрав к выделенному слову пароним. запишите подобранное слово. на площадке...
dianakokorina91
21.04.2020 11:32
Почему древние люди жили общинами ?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//Версия 3.3, сборка 1611
begin
write(range(1,ReadInteger('n=')).Aggregate(Real(1),(x,y)->x*y));
end.
i, n: integer;
P: real;
Begin
Write('n = ');
ReadLn(n);
P := 1;
For i := 1 to N do
P := P * i;
WriteLn('P = ',P);
End.