tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Найти сумму чисел от
Найти сумму чисел от 1 до n, делящихся на 5 и меньших а. паскаль
exii
1 26.07.2019 18:00
0
Ответы
Tus1
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
belayazima
27.06.2019 18:30
Написать программу для решения в с++ даны натуральные числа n и m (m= n). определить, сколько из чисел n, n+1, m являются номерами висококосных годов. номер висококосного...
kskvortsovak07
04.09.2019 11:40
3. вывести все двузначные числа , у которых старшая сумма в два раза больше младшей...
rostislavcapsu
04.09.2019 11:50
Работа в питоне даны катеты прямоугольного треугольника.найдите его периметр и площадь...
Витаминка111118
30.10.2020 07:43
Критерий оценки такой: 0-30% = 2 , 31-60% = 3 , 61-80 % = 4 , 81-100 % = 5 ...
22222ssssssss
30.10.2020 07:43
Отсортируйте следующие размеры данных от наименьшего к наибольшему: 90B 259 КБ 1 ГБ 1025 МБ 725b...
tasinas
08.12.2020 22:38
Создания растрового рисунка. 2. Укажите назначение для следующих пиктограмм.ПиктограммаНазначениеОДи...
kapital0202p0cd2e
08.12.2020 22:37
Разница между естественными языками и формальными языками...
Winxsori
08.12.2020 22:37
1. Программа, которая позволяет работать с графическими изображениями, обрабатывать и редактировать их.( ) a) Текстовый редакторb) Графический редакторc) Программа...
Sabinaaa33
19.02.2020 00:22
Вычислите объём памяти необходимый для переменных из приведённых ниже объявлений: b) type Vector = array[1..n] of real; Matrice = array[1..n] of Vector; var A, B, C : Matrice;...
kolchanovalina
19.02.2020 00:22
Графическое изображение с количеством отображаемых цветов, равным16 777 216, занимает весь экран монитора с разрешением 1280x1024пикселей. Найдите объем видеопамяти, необходимой...
Популярные вопросы
Решение уравнения, ! 2x+4y+9=0 если y=1...
2
Придумать слово из четырех слогов и три слова из пяти слогов...
1
Из 69л молока приготовили 3 кг масла.сколько литров молока нужно для приготовления...
2
Выберите один из понравившихся вам эпизодов повести тарас бульба и определите...
1
Кровь относится к ткани эпитиальной соединетельной мышечной жилистый...
2
Выполните перевод едениц измерения количества информации а) 4 кбайт в байтах...
2
Психологический портрет штольца обломов...
1
2(3+х)-4х -10 указать наибольшее число решить заранее...
2
Зачем придумали словообразование и разбор слов по составу...
2
Найдите cos(альфа),если cos(2альфа)=( -1/50) и альфа е (3пи/2; 2пи)...
2
var a := ReadInteger('a =');
PrintLn(
Range(1, ReadInteger('n ='))
.Where(x -> (x mod 5 = 0) and (x < a))
.Aggregate((s, x)-> s + x)
);
end.