Начинаем заполнять предложенную табличку. Читаем пункты условий.
1) Аня и Саша не победители по информатике - ставим два минуса, которые в табличке указаны как -(1)
2) Лена и Вася тоже не победители в информатике - ставим -(2)
И замечаем, что в колонке информатика есть только она пустая клетка. Ставим туда + и оказывается, что победитель по информатике - Миша.
Но одновременно это означает, что Миша не является победителем в других предметах и расставляем там минусы (залито салатовым цветом)
3) Саша не силен в истории - ставим -(3)
4) Лена и Саша - не победители по литературе, ставим -(4)
5) Саша и Лена также и не победители в математике - ставим -(5)
И после этого у Саши остается только один предмет - география, где и ставим +(после 5) - голубая заливка. Но тогда остальные школьники не являются победителями по географии и мы ставим им минусы в этом предмете (также голубая заливка)
6) Аня - не победитель по литературе, ставим -(6).
Но тогда литература достается Васе (желтая заливка) и минусы у Васи достаются Истории и Метематике (также залито желтым).
Условия задачи закончились. Но решение продолжается при помощи рассуждений.
7) В Математике свободная клетка есть только для Ани +(7) и тогда у Ани появляется минус в Истории.
8) Последняя пустая клетка - это История у Лены. +(8).
Ответ венкл Потом ещё поросуждаю
Необходимо рассматривать две цифры в адресах253.5711111101.00111001
252.0. 11111100.00000000в подсети маска должна содержать 10 нулейМинимально можно задействовать 9,так как десятый разряд можно не задействовать, если число ПК не увеличивать.
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
//Задание 12.а.
//Сумма первых n натуральных чисел
var s := 0;
var n := ReadlnInteger('введите n');
for var i := 1 to n do s := s + i;
Println(' Cумма первых', n, '=', s);
//Задание 12.г.
//Сумма всех двузначных
s := 0;
for var i := 10 to 99 do s := s + i;
Println(' Cумма всех двузначных', '=', s);
//Задание 13.
//Получаем 10 сл. чисел, выводим на экран
// и получаем среднее арифметическое
var a := ArrRandom(10, 1, 20);
println(a);
println('Среднее арифметическое ', a.Average)
end.