Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
4578000872
01.05.2020 14:54 •
Информатика
Найти сумму чисел от 1 до n, делящихся на 5 и меньших а. паскаль
Ответ:
маринька
25.09.2020 01:17
Begin
var a := ReadInteger('a =');
PrintLn(
Range(1, ReadInteger('n ='))
.Where(x -> (x mod 5 = 0) and (x < a))
.Aggregate((s, x)-> s + x)
);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
лох249
02.10.2021 23:13
Напишите программу в результате которой переменной n присваивается значение трехзначного числа записанного в обратном порядке умноженого на 2 пример а=1237 n =14642...
melnykkatya32
02.10.2021 23:13
Cформировать и вывести целочисленный массив размера n=15, содержащий степени n первых степеней числа 2,взятых с чередующихся знаками: (1,-2,4,-8,-32,64,...
123456789надежда1234
13.05.2022 03:29
Help информатика pascalabc.net уровень a. а) заполните все элементы массива значением x , введённым с клавиатуры. б) заполните массив первыми n натуральными числами, начиная...
kristimilafffka
13.05.2022 03:29
Написать программу для вычисления суммы числел от a до b (где a =b) указание: переменная, которая будет накапливать сумму в начале должна быть равна нулю...
studpetrp011ry
15.02.2020 19:06
Какой кабель с точки зрения пожарной безопасности лучше использовать: оптоволоконный или витую пару?...
Оленка124683
30.06.2020 05:32
с информатикой задания 1-5...
Gosha22228888
19.02.2020 18:24
ЗА) Напишите наибольшее целое число х, для которого истинно высказывание: НЕ (Х = 13) И НЕ (X 19)Б) Напишите наибольшее целое число х, для которого истинно высказывание:НЕ...
statarincev2019
25.08.2022 16:16
Составьте пересказ текста по языку...
lisya778
23.12.2021 01:37
Что называется общества и общения ...
Sashunai
10.03.2020 13:54
Врезультате выстрела из заряженного орудия общей массой 304 кг вылетел снаряд с начальной скоростью 19 м/с. орудие при этом приобрело скорость отдачи 2 м/с. определи массу...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var a := ReadInteger('a =');
PrintLn(
Range(1, ReadInteger('n ='))
.Where(x -> (x mod 5 = 0) and (x < a))
.Aggregate((s, x)-> s + x)
);
end.