Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
макс3113
30.05.2022 22:46 •
Информатика
Найти произведение всех целых чисел от c до d в паскале
Показать ответ
Ответ:
Waz4
21.08.2020 06:29
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (c,d):=ReadInteger2('C,D=');
Writeln('П = ',Range(c,d).Aggregate(BigInteger(1),(i,j)->i*j))
end.
Пример
C,D= 23 42
П = 1250004633476421848894668800000
0,0
(0 оценок)
Ответ:
Alenadobro97
21.08.2020 06:29
Programm abc;
var c,d,i,p:integer;
begin
read (c,d);
p:=0;
for i:=c to d do
p:=p+i;
writeln(p);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ndzandigiv
07.07.2020 22:19
70 ! выберете верные утверждения: для запуска программы, код которой был написан на компилируемом языке, на компьютере должен быть установлен компилятор этого языка. код...
133fdsf7za
05.08.2021 08:06
Появление первых лазерных дисков первые следы иероглифического письма в древнем египте начало книгопечатания в россии появление первых жестких дисков для компьютеров изобретение...
viktrozumovskaoyqqjq
12.04.2023 06:45
Составить программу. язык pascal. 1.составить программу вычисления значения функции. z = (x^3) - 2.5xy + (1.78*x^2) - 12.5*y + 1 при любых значениях x и y 2. составить программу...
Dmitr55
31.07.2021 14:50
потенциальный внп равен 5000 д.е., объем фактического внп в стране составил 4500 д.е. определить фактический уровень безработицы в стране, если естественный уровень безработицы...
Moonlight06
06.09.2020 08:16
Могут ли происходить окислительно-восстановительные реакции между веществами: ph3 и h2so3, h3po4 и ki, h3po3 и k2cr2o7....
JulyaPark1993
29.06.2021 16:19
Атомная масса протия (изотопа водорода 1h) равна 1.008 а.е.м., а дейтерия (изотопа водорода 2h) 2,014 а.е.м. чему равен дефект массы при образовании дейтерия из протия и...
NoName353647
23.02.2020 00:25
Решите 2 номера 20 3. put the verbs into past simple: mr. johnson . (find) 10$ in the park yesterday. columbus (discover) america. we (watch) tv last night. marry .(send)...
leraanufrieva
30.06.2022 03:09
Внешняя политика николая i.1. пользуясь картой и текстом учебника, составьте рассказ о ходе боевых действий в октябре 1834 - сентябре 1854 г.2. перечислите моря и океаны,...
Jelly2005
23.12.2022 22:36
рассчитать общую численность персонала, если технологическая трудоемкость единицы продукции – 27 чел.-ч. трудоемкость обслуживания на весь выпуск продукции – 8000 чел.-ч....
ukharitonova
13.09.2022 10:59
На прямой отложены 2 равных отрезка ас и св.на отрезке св взята точка д,которая делит его в отношениях 5: 4,считая от точки с.найдите расстояние между а и б если сд=10см...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var (c,d):=ReadInteger2('C,D=');
Writeln('П = ',Range(c,d).Aggregate(BigInteger(1),(i,j)->i*j))
end.
Пример
C,D= 23 42
П = 1250004633476421848894668800000
var c,d,i,p:integer;
begin
read (c,d);
p:=0;
for i:=c to d do
p:=p+i;
writeln(p);
end.