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

Паскаль. списки. формировать списки из n элементов. добавить элемент а перед вторым максимальным элементом (2,100,5,99*,17). удаление первого максимального элемента списка (2,5,а,99,17). выполнить сортировку списка по возрастанию. после выполнения каждой операции выводить список на экран.

👇
Ответ:
Petrovaaleksanik
Petrovaaleksanik
12.05.2021
// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018// Внимание! Если программа не работает, обновите версию!

begin

 var L := new List<integer>;

 L.AddRange(Seq(2, 100, 5, 99, 17));

 L.Println;

 var A := ReadInteger('A=');

 var s:=L.ToArray.Select((v, i)-> (v, i)); // в памяти не хранится!

 // Ищем 2- максимальный элемент. Сортируем по убыванию, берем 2-й.

 var i := s.OrderByDescending(t -> t[0]).Skip(1).First[1];

 L.Insert(i,A); // вставка

 L.Println;

 L.Remove(L.Max); // удаление

 L.Println;

 L := L.Sorted.ToList; // сортировка

 L.Println

end.

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

Задание 1: 4132

4 Экзамен | ЕГЭ | Информатика | Литература

1 Экзамен | ЕГЭ | Информатика

3 Экзамен | ЕГЭ

2 Экзамен & ЕГЭ & Информатика

Задание 2: 3124

3 рыбки

1 рыбки & аквариум

2 рыбки & аквариум & гуппи

4 рыбки & аквариум & гуппи & купить

Задание 3: 3421

3 Сок | Нектар

4 Сок

2 Сок & Апельсин

1 Сок & Апельсин & Яблоко

Задание 4: 2134

2 волейбол | баскетбол | подача | блок

1 волейбол | баскетбол | подача

3 волейбол | баскетбол

4 волейбол & баскетбол & подача

Задание 5: 2341

2 алгоритм & сжатие & графика & архиватор

3 алгоритм & сжатие

4 алгоритм | (сжатие & графика)

1 сжатие | графика | алгоритм

Задание 6: 1423

1 (Автомобили – Ford) & новые

4 Автомобили – Ford

2 Автомобили

3 Автомобили | Ford

Задание 7: 3124

3 отдых & Сочи & Адлер

1 отдых & (Сочи | Адлер)

2 отдых & (море | Сочи | Адлер)

4 отдых | Сочи | Адлер

Задание 8: 4123

4 строительный & стоимость & купить & купить

1 строительный & стоимость & купить

2 строительный | материал | купить

3 строительный | материал | стоимость | купить

Задание 9: 5000

Новосибирск 3300

Красноярск 2200

Новосибирск & Красноярск 500

Новосибирск | Красноярск 5000

Задание 10:

Атос & Портос 335

Атос & Арамис 225

Атос & Портос & Арамис 120

Атос & (Портос | Арамис) 440

Графические подтверждения:


В таблице приведены запросы к поисковому серверу. Расположите номера запросов в порядке убывания кол
В таблице приведены запросы к поисковому серверу. Расположите номера запросов в порядке убывания кол
4,6(86 оценок)
Ответ:
svetaredkina
svetaredkina
12.05.2021

Условие: (x % 4 == 0 and x % 100 != 0) or x % 400 == 0

Рассмотрим скобку x % 4 == 0 and x % 100 != 0:

x % 4 == 0 — число делится на 4 без остатка, т.е. кратно 4-мx % 100 != 0 — число не делится на 100 без остатка, т.е. не кратно 100

and говорит о том, что обязательно должны выполняться оба этих условия: число должно быть кратно 4-м И не кратно 100

Вторая часть условия:

x % 400 == 0 — число делится на 400 без остатка, т.е. кратно 400

or говорит о том, что либо выполняется условие в скобке, либо то, которое идет после or:

число должно быть кратно 4-м И не кратно 100, ИЛИ число должно быть кратно 400

Пример чисел, которые удовлетворяют условию:

0

4

8

12

128

400

1600

Например, 200 не подойдет:

200 % 4 == 0 — да

200 % 100 != 0 — нет

200 % 400 == 0 — нет

(да И нет) ИЛИ нет = нет ИЛИ нет = нет

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