Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
baron2032012
17.12.2022 06:57 •
Информатика
Решить в pascal. дано натуральное число n. вычислить y=2*4*) все решения в интернете неверные, пишет ошибку. желательно сделать скрин программы.
Показать ответ
Ответ:
иимром
06.10.2020 09:13
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(Range(2,2*ReadInteger('n='),2).Aggregate(BigInteger(1),(m,n)->m*n))
end.
Пример
n= 37
1891675820705153808241239602722999673157373132800000000
0,0
(0 оценок)
Популярные вопросы: Информатика
moderator14
24.02.2021 23:04
1. У першу годину роботи робітник виготовляє а деталей, за кожну подальшу годину – на d деталей більше, ніж за попередню. Розробіть програму, яка підраховує, скільки...
nastakosmos12
14.09.2021 16:43
С клавиатуры вводится целое число от 1 до 1000, обозначающая сумму в рублях. Программа должна напечатать эту сумму прописью.Пример: двадцать один рубльсто семьдесят...
dimandra
15.06.2022 07:25
Информатика решить через Паскаль...
07090702
23.01.2020 08:45
Составь свой чайнворд опиши четыре предмета или существа 3 класс...
rashantixaip
27.12.2021 07:33
Маша хотела поделиться об Олимпийских играх с подругами, но забыла, где именно она сохранила фотографию Сочи. Ниже представлена файловая структура диска Е ...
Cradzul
04.07.2022 02:25
Виды информационных национальных ресурсов» ( cопоставить)1) библиотеки а) ресурсы промышленной сферы общества2) архивы б) компьютерная форма хранения и обработки...
Gutrom
27.03.2021 22:35
Якими командами організувати цикл з передумовою в скретч? Як виконуються ці команди?...
математик222
02.08.2021 01:41
Найдите понятия соответствующие новым терминам...
aibergenova198
09.04.2022 11:08
Среди функций у=3х-6, у=-3х-6, у=3х+6,у=-3х+6 укажите функии , графики которых паралельны....
gvarya05
09.04.2022 11:08
Файл размером 4000 кбайт передаётся через некоторое соединение в течение 2 минут. определите размер файла (в кбайт), который можно передать через это соединение за...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(Range(2,2*ReadInteger('n='),2).Aggregate(BigInteger(1),(m,n)->m*n))
end.
Пример
n= 37
1891675820705153808241239602722999673157373132800000000