Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
chip0523
25.09.2021 04:33 •
Информатика
Подсчитайте количество четырёхзначных чисел, сумма цифр которых равна вводимому с клавиатуры числу. если таких чисел нет, сообщите об этом.
👇
Увидеть ответ
Открыть все ответы
Ответ:
ТанечкаКоновалова
25.09.2021
Четное число делится на два, а кратное пяти делится на пять, поэтому число должно делиться без остатка на 2х5=10
// PascalABC.NET 3.0,сборка 1076
begin
var n:=ReadInteger('Длина последовательности: ');
var a:=ArrRandom(n,-50,50);
Writeln('Исходная последовательность');
a.Println;
Writeln('Сумма элементов: ',a.Sum);
Write('Кол-во четных, кратных пяти: ');
Writeln(a.Where(x-> x mod 10 = 0).Count)
end.
Тестовое решение:
Длина последовательности: 20
Исходная последовательность
-4 21 -21 -23 14 -39 -12 1 -7 4 17 -45 30 -48 -19 -12 27 -46 -37 15
Сумма элементов: -184
Кол-во четных, кратных пяти: 1
4,5
(51 оценок)
Ответ:
zekisroman
25.09.2021
Четное число делится на два, а кратное пяти делится на пять, поэтому число должно делиться без остатка на 2х5=10
// PascalABC.NET 3.0,сборка 1076
begin
var n:=ReadInteger('Длина последовательности: ');
var a:=ArrRandom(n,-50,50);
Writeln('Исходная последовательность');
a.Println;
Writeln('Сумма элементов: ',a.Sum);
Write('Кол-во четных, кратных пяти: ');
Writeln(a.Where(x-> x mod 10 = 0).Count)
end.
Тестовое решение:
Длина последовательности: 20
Исходная последовательность
-4 21 -21 -23 14 -39 -12 1 -7 4 17 -45 30 -48 -19 -12 27 -46 -37 15
Сумма элементов: -184
Кол-во четных, кратных пяти: 1
4,7
(76 оценок)
Это интересно:
З
Здоровье
20.06.2022
Как восстановиться после операции на ступне...
З
Здоровье
14.05.2022
Как увеличить уровень тромбоцитов в крови...
К
Компьютеры-и-электроника
03.09.2020
Как стать специалистом в Microsoft Excel: советы от эксперта...
14.02.2020
Как быть честным(ой)?...
З
Здоровье
15.05.2020
Угревые струпья: как расправиться с ними быстро и эффективно?...
И
Искусство-и-развлечения
23.04.2020
Мастерство подбора музыки: Как выбрать мелодии для разных мероприятий?...
Х
Хобби-и-рукоделие
24.08.2021
Как сшить детское платье: пошаговая инструкция...
П
Питомцы-и-животные
06.11.2020
Как убить муху: 5 действенных способов...
К
Кулинария-и-гостеприимство
17.08.2020
Шоколадная водка: рецепты домашнего приготовления...
С
Стиль-и-уход-за-собой
07.09.2022
Как скрыть синяк: простые способы...
Новые ответы от MOGZ: Информатика
nuk890
15.09.2022
Сообщение, записанное буквами из 64-х символьного алфавита, содержит 720 символов. Какой объем информации оно несет...
Karapetrova05
23.10.2021
ответить на данный вопрос еще...
tania130
21.09.2021
Записать и упростить выражение для объединения областей на диаграмме 1+7+8...
putin12344
21.09.2021
Соедините названия полей базы данных «Студент» с соответствующими им типами данных. Фамилия, характеристика, отметка о зачислении, год рождения, средний Десятичное [DECIMAL],...
denisstar756
25.08.2021
Найти количество решений системы логических уравнений....
Daavv33
16.11.2022
Целью , состоящие из элементов , взаимосвязанных между собой это...
LightDarkness
25.11.2022
Алфавиттік тәсілді қай кезде қолданған ыңғайлы?...
Beheh
15.01.2023
«Жасанды интеллект» терминіне анықтама бер. Жасанды интеллект дайындалған бағыттарды ата. Формалды орындаушы мен интеллектуалды орындаушының қыз- меттерін салыстыр....
ssnn70p0aegz
06.02.2023
Просят функциональную схему...
10.02.2022
Альфавитте 32 әріп бар.Бір символдың ақпараттық салмағы қандай? информатика 8сынып...
MOGZ ответил
Speak about how you use the internet or would like to use it. напишите...
Что такое счастье? сочинение ( много текста и не из интернета...
При каком значении переменной равна нулю дробь 8x+2/7x−21 ?...
Как называется фильм в котором был великий человек которого посадили...
Примеры нравственных поступков из художественной...
Для отыскания координат точки м решаем совместно уравнения прямых ef...
Два тела движутся равномерно и прямолинейно. их скорости равны 36 км/ч...
Найдите слово в котором нулевое окончание .печенье боксер пианино одеяло...
Укажіть елемент, що входить до складу хлорофілу зелених рослин: а)берілій;...
Расстояние между станциями а и б пассажирский поезд проходит на 45 минут...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
// PascalABC.NET 3.0,сборка 1076
begin
var n:=ReadInteger('Длина последовательности: ');
var a:=ArrRandom(n,-50,50);
Writeln('Исходная последовательность');
a.Println;
Writeln('Сумма элементов: ',a.Sum);
Write('Кол-во четных, кратных пяти: ');
Writeln(a.Where(x-> x mod 10 = 0).Count)
end.
Тестовое решение:
Длина последовательности: 20
Исходная последовательность
-4 21 -21 -23 14 -39 -12 1 -7 4 17 -45 30 -48 -19 -12 27 -46 -37 15
Сумма элементов: -184
Кол-во четных, кратных пяти: 1