Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
micha197979
09.05.2021 19:34 •
Информатика
Программы паскаль! 1)найдите произведение чисел, кратных 7, от 1 до 70 2)найдите количество количество нечётных чисел от 0 до 1000
Показать ответ
Ответ:
Дима061
04.10.2020 10:37
// PascalABC.NET 3.2, сборка 1336 от 14.11.2016
begin
Writeln(Range(7,70,7).Aggregate(biginteger(1),(i,j)->i*j))
end.
Результат
1025046183571200
// PascalABC.NET 3.2, сборка 1336 от 14.11.2016
begin
Writeln(Range(1,1000,2).Count)
end.
Результат
500
0,0
(0 оценок)
Популярные вопросы: Информатика
PollyDraw11
05.02.2023 14:00
Мяч был брошен вертикально с высоты 10 метров над землей со скоростью 20 м / с. Как далеко мяч от земли за 3 секунды? Создать программу для линейного алгоритма...
larry19
10.11.2021 13:56
При каких значениях X, Y логическое выражение (NOT X) AND (NOT Y) принимает значение ИСТИНА ?...
lenababkina200
04.09.2020 04:34
7 Определите значение полей документа представленного на рисунке ниже левое поле правое поле...
alenasher1try
12.05.2022 03:50
Подскажите как решить данную задачу в Exel докину еще 25 оставшихся . Формулы у меня есть, но что и куда вставлять я не понимаю....
zswdfx
03.03.2021 18:10
Вэлектронной таблице выделен фрагмент ячеек c2: e6,сколько ячеек содержит этот фрагмент ?...
11111Ангелина11111
23.04.2020 06:06
Перевести данное число из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную системы счисления: 875(10), 535.25(10)...
frolovaasd2017
23.04.2020 06:06
Дана таблица. к полю. дата применили автозаполнения. укажите значение поля дата если занятие проходили раз в неделю...
igorlevocko
04.04.2020 18:17
Сдав доклад по информатике на «отлично», ученик перенёс папку, полный путь до которой был с: \учёба\информатика\состав_пк, в папку архив, расположенную в корне диска d. укажите...
gunelmustafaeva
28.07.2022 21:44
Две массив p из 17 элементов. найти количество пятёрок в массиве....
Brain111t
18.10.2021 13:21
С пока цикла найти сумму четных чисел от 2 до 100...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
Writeln(Range(7,70,7).Aggregate(biginteger(1),(i,j)->i*j))
end.
Результат
1025046183571200
// PascalABC.NET 3.2, сборка 1336 от 14.11.2016
begin
Writeln(Range(1,1000,2).Count)
end.
Результат
500