Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Дима2005Dima
20.03.2022 00:58 •
Информатика
Вопрос № 4 материнская плата
основная электронная плата в компьютере
адаптер для винчестера
запоминающее устройство
IM
Показать ответ
Ответ:
prokopchukalex
11.06.2020 06:25
Четное число делится на два, а кратное пяти делится на пять, поэтому число должно делиться без остатка на 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
0,0
(0 оценок)
Ответ:
семенггвп
11.06.2020 06:25
Четное число делится на два, а кратное пяти делится на пять, поэтому число должно делиться без остатка на 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
0,0
(0 оценок)
Популярные вопросы: Информатика
povolyasha
15.03.2020 14:30
ВОПРОСЫ И ЗАДАНИЯ: 1) Отличаются ли «фейки» в социальных сетях от телевизионных «Фейков»? Объясните, чем они могут отличаться? 2) Составьте таблицу: какие виды...
123FoxYouTube123
14.11.2021 09:42
Для работы над новым проектом из специалистов отдела необходимо сформировать команду, состоящую из двух программистов и трёх вебдизайнеров. Укажите количество различных...
armeninkrasavcheg
15.12.2022 22:09
Число 2072 записали в двоичной системе счисления, затем поменяли нули на единицы, а единицы на нули и перевели обратно в десятичную систему. что получили? в качестве...
pandaswomenp08cc4
27.04.2023 18:10
Выберите три прикладные программы на компьютере и заполните таблицу. например, ms word, ms excel, ms powerpoint. для ана- лиза можете выбрать другие программы....
rusylan883
24.05.2020 18:12
Написать программу замены значений трех переменных, ! ...
Xamelion11
12.07.2022 04:19
4) определить требуемый объем видеопамяти для различныхграфических режимов экрана монитора, если известна глубина цвета наодну точкуглубина цвета (бит на точку)режим...
228эрагон
13.12.2021 19:49
Решите через while.напишите программу, которая в последовательности натуральных чисел определяет минимальное число, программа получает на вход количество чисел...
limbo03rus
01.04.2022 14:34
Люди сделать вот это в языке C#...
RMDEL
17.11.2022 17:28
Які елементи містить вікно табличного процесора Microsoft Excel...
аsiyt09
25.04.2021 04:33
Придумай своё обновление будущее brawl Stars...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// 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
// 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