В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
castafirs
castafirs
12.12.2020 03:57 •  Информатика

Школьник сказал своему приятелю Вите Иванову:

— У нас в классе 27 человек. И представь, каждый из них дружит ровно с 5 одноклассниками...
— Не может этого быть, — сразу ответил Витя Иванов, победитель математической олимпиады. Почему он так решил?

Дополни решение задачи.

Представим себе, что между каждыми двумя друзьями протянута ниточка. Тогда каждый из 27 учеников будет держать в руке
концов ниточек, и значит, всего у протянутых ниточек будет
концов. Но общее число не может быть нечётным, так как у каждой ниточки 2 конца.

Показать ответ
Ответ:
adelinkalinka15
adelinkalinka15
23.03.2021 08:27

===== PascalABC.NET =====

= 1 =

begin

 var n := ReadInteger('N =');

 var A := ArrRandom(n, -99, 99);

 A.Println;

 // собственно, решение

 var s := A.Sum; // сумма всех элементов массива

 var L := new List<integer>; // то, что войдет в массив В

 // берем каждого претендента и сравниваем его с остальной суммой

 for var i := 0 to A.High do

   if (Abs(A[i] mod 10) = 5) and (A[i] > s - A[i]) then

     L.Add(A[i]);

 var B := L.ToArray;

 if B.Length > 0 then

 begin

   Print('Особые элементы:');

   B.Print

 end  

 else

   Print('Нет "особых" элементов');

end.

= 2 =

begin

 var n := ReadInteger('N =');

 var A := ArrRandom(n, -10, 10);

 A.Println;

 // собственно, решение

 var D := new Dictionary<integer, integer>; // словарь

 foreach var k in A do // перебор элементов

   if D.ContainsKey(k) then

     D[k] += 1 // +1, если такой элемент был

   else

     D.Add(k, 1); // 1, если элемент встретился впервые

 D.Count(p -> p.Value > 1).Print

end.


1.Дан одномерный целочисленный массив А, состоящий из N элементов, N - заданное натуральное число. Э
1.Дан одномерный целочисленный массив А, состоящий из N элементов, N - заданное натуральное число. Э
0,0(0 оценок)
Ответ:
anastasiysu77
anastasiysu77
11.08.2022 01:17
Вивести на екран вікно з повідомленням можна за до процедури ShowMessage або функції MessageDlg.

Процедура ShowMessage виводить на екран вікно з текстом і командної кнопкою ОК.
У загальному вигляді інструкція виклику процедури ShowMessage виглядає так:
ShowMessage (Повідомлення);
де повідомлення – текст, який буде виведений у вікні.

Слід звернути увагу на те, що в заголовку вікна повідомлення, що виводиться процедурою ShowMessage, зазначено назва програми, з якою задається на вкладці Application вікна Project Options. Якщо назва додатка не задано, то в заголовку буде ім’я виконуваного файлу.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота