Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
rouberuplay
02.02.2022 14:37 •
Информатика
Дан массив натуральных чисел. найти сумму элементов кратных числу к
Показать ответ
Ответ:
nika344245335
04.10.2020 09:08
//PascalABC.Net 3.1.0.1200
begin
var a := ArrRandomInteger(10, 1, 100);
var k := ReadInteger('k =');
writeln(a.Where(x -> x mod k = 0).Sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
генадийпетрович
28.11.2021 19:41
Как написать составное условие, чтобы можно было убедиться, что оба заданных числа a и b нечетные?...
afia388
30.03.2022 23:08
Знайти середнє арифметичне елементів масиву розташованих після max...
egoremykina
29.12.2020 07:22
Переведите в двичную систему десятичное число 192...
Onik2002
29.12.2020 07:22
Перевести данное число из десятичной системы счисления в двоичную, восьмиричную и шестнадцатеричную системы счисления. 676 (10) 305 (10) 248 (10) перевести данное число в десятичную...
Соня12131415
29.12.2020 07:22
Информационое сообщение объёмов 800 байтов состоит из 800 символов. каков информационный вес каждого...
hassnallameozm4zm
03.02.2022 21:25
Добрый день! слова школа составить ребус....
renatadautova
22.11.2022 13:31
По темам операционное окружение,интерфейс,прерывание составить 10 вопросов. !...
Дзера1111
22.11.2022 13:31
Сколько секунд потребуется обычному модему, сообщения со скоростью 28800 бит/с, чтобы передать цветное растровое изображение размером 640х480 пикселей, при условии, что цвет каждого...
sir13
22.11.2022 13:31
Перевести данные числа из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную системы счисления. 1)162,25 2)248,46 перевести данные числа в десятичную систему...
Ьвот
23.11.2020 17:10
1.Опишите систему команд и рабочую среду исполнителя Кенгуренок. 2.Что такое Исполнитель Кенгуренок3.Что такое Алгоритм 4. Что такое исполнитель.5 Что такое программа.6. Назовите...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var a := ArrRandomInteger(10, 1, 100);
var k := ReadInteger('k =');
writeln(a.Where(x -> x mod k = 0).Sum);
end.