М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Ustailia
Ustailia
10.10.2022 17:12 •  Информатика

Дан массив А (120), заполненный трехзначными случайными числами. Найти произведение тех элементов, которые принадлежат отрезку (30,60) и сумму тех элементов, которые кратны 6. ПАСКАЛЬ

👇
Ответ:
Bksd
Bksd
10.10.2022

begin

var N:array of integer;

setlength(n,120);

N.FillRandom(100,999);

 

var b:BigInteger:=1;

for var L:=30 to 60 do

begin

  b:=b*N[L];

end;

writeln('Произведение элементов принадлежащих [30,60]: ',abs(B));

writeln('Сумма элементов кратных 6: ',N.FindAll(x -> x mod 6 = 0).Sum);

end.

Примечание:

1) Для записи числа использован biginteger - динамическая ячейка числа, единственная, в которую можно поместить полученный ответ

2) Сумма элементов кратных 6 находится функцией .Sum примененной к массиву, полученному от функции .FindAll

3) FindAll проверяет заданный массив по восходящему параметру, т.е. каждая следующая ячейка при проверке обозначается как некая переменная (в данном случае, как х) до знака "->", а после к ней применяется выражение (x mod 6 = 0 - т.е. элемент при делении на 6 не должен иметь остатка)

4,7(29 оценок)
Открыть все ответы
Ответ:

1.Компью́терный ви́рус — вид вредоносного программного обеспечения внедряться в код других программ, системные области памяти, загрузочные секторы, и распространять свои копии по разнообразным каналам связи.

2. Не работать под привилегированными учётными записями без крайней необходимости (учётная запись администратора в Windows).

Не запускать незнакомые программы из сомнительных источников.

Стараться блокировать возможность несанкционированного изменения системных файлов.

Отключать потенциально опасную функциональность системы (например, autorun-носителей в MS Windows, сокрытие файлов, их расширений и пр.).

Не заходить на подозрительные сайты, обращать внимание на адрес в адресной строке обозревателя.

Пользоваться только доверенными дистрибутивами.

Постоянно делать резервные копии важных данных, желательно на носители, которые не стираются (например, BD-R) и иметь образ системы со всеми настройками для быстрого развёртывания.

Выполнять регулярные обновления часто используемых программ, особенно тех, которые обеспечивают безопасность системы.

3.Wi-Fi — технология беспроводной локальной сети с устройствами на основе стандартов IEEE 802.11. Логотип Wi-Fi является торговой маркой Wi-Fi Alliance

4.Социальная сеть (сокр. ... соцсеть) — онлайн-платформа, которая используется для общения, знакомств, создания социальных отношений между людьми, которые имеют схожие интересы или офлайн-связи, также для развлечения (музыка, фильмы) и работы.

ДАЛЬШЕ НЕЗНАЮ

4,5(66 оценок)
Ответ:
lera123aaa
lera123aaa
10.10.2022

1.Объективность=Эти брюки стоят три тысячи рублей

2.Необъективность=Эти брюки дорого стоят

3.Достоверность= все ныне живущие люди умрут

4.Недостоверность=люди бессмертны

5.Полнота=Ира, моя родная сестра, приехала погостить на пару дней

6.Неполнота=девушка

7.Актуальность=на вашем счёте 2 рубля

8.Неактуальность=в 1894 на счёте вашего прапрадедушки было семь шекелей

9.Ценная информация=хорошо написанная статья о том как вылечить больную печень. эта информация ценна для пьяницы

10.Не ценная=та же статья но для здорового шахтёра в уральских горах ценна не будет

11.Понятная информация=в долларе 56,89 рубля

12.Непонятная информация=ドル56.89ルーブル

Объяснение:

4,4(19 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ