Школьник сказал своему приятелю Вите Иванову:
— У нас в классе 27 человек. И представь, каждый из них дружит ровно с 5 одноклассниками...
— Не может этого быть, — сразу ответил Витя Иванов, победитель математической олимпиады. Почему он так решил?
Дополни решение задачи.
Представим себе, что между каждыми двумя друзьями протянута ниточка. Тогда каждый из 27 учеников будет держать в руке
концов ниточек, и значит, всего у протянутых ниточек будет
концов. Но общее число не может быть нечётным, так как у каждой ниточки 2 конца.
===== 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.
Процедура ShowMessage виводить на екран вікно з текстом і командної кнопкою ОК.
У загальному вигляді інструкція виклику процедури ShowMessage виглядає так:
ShowMessage (Повідомлення);
де повідомлення – текст, який буде виведений у вікні.
Слід звернути увагу на те, що в заголовку вікна повідомлення, що виводиться процедурою ShowMessage, зазначено назва програми, з якою задається на вкладці Application вікна Project Options. Якщо назва додатка не задано, то в заголовку буде ім’я виконуваного файлу.