пюс решением
1)для каждого из перечисленных ниже десятичных чисел построили двоичную запись. укажите все числа, двоичной записи которых содержит ровно четыре единицы числа : 1)15, 2) 18, 3)21, 4)23, 4)27
2)для каждого из перечисленных ниже десятичных чисел построили двоичную запись. укажите число, двоичной записи которого содержит наибольшее количество единиц. числа: 1)29, 2)30, 3)31, 4)32, 5)33
3) укажите наименьшее четырёхзначное восьмеричное число, двоичной записи которого содержит ровно три значащих нуля. в ответе запишите только само восьмеричное число, основание системы счисления указывать не нужно.
4) сколько единиц в двоичной записи восьмиричного числа 1731 в восьмой степени
5) сколько единиц в двоичной записи восьмиричного числа 1234 восьмой степени
6) сколько значащих нулей в двоичной записи восьмеричного числа 7512 восьмой степени
7) сколько значащих нулей в двоичной записи восьмеричного числа 7715 восьмой степени
8) сколько единиц в двоичной записи шестнадцатиричного числа 6ab1 в 16-й степени
9) сколько значащих нулей в двоичной записи шестьнадцатеричного числа 3fc5 16-й степени
2) Наметим пункты нашего графа. Какие мы знаем? Например, Облака, Дождь, Снег, Поверхность Земли, Земля, Животные, Растения, Пар.
3) Располагаем их и соединяем стрелочками (движение возможно только в одну сторону) или просто линиями.
PascalABC.NET 3.7:
###var names := ReadString('Введите имена:').ToWords;var values := ReadArrInteger('Введите возраста:', names.Len);var m := values.Max;var a := values.Indices(x → x = m).Sel(i → names[i]).toA;if a.Len = values.Len then Pr('У всех одинаковый возраст.')else if a.Len = 1 then Pr(a[0], 'старше всех.')else Pr(a[:^1].JoinToString(', '), 'и', a[^1], 'старше всех.')Объяснение:
С реализуем вывод приглашения к вводу ("Введите имена:") и запрос на ввод строки. После чего, ToWords преобразует введённую строку в массив слов. Этот полученный массив (массив введённых через пробел имён) записывается в переменную names.
С реализуем вывод приглашения к вводу ("Введите возраста:") и запрос на ввод массива чисел, длину которого (количество вводимых чисел) мы задали с длина массива names). Этот массив чисел записывается в переменную values. Числа можно вводить как через пробел, так и с новой строки.
С метода расширения Max находим максимальный элемент массива values и записываем его в переменную m.
С метода расширения Indices получаем последовательность индексов, удовлетворяющим условию x = m, где x — тот или иной элемент массива values. Затем, с метода Sel проецируем каждый элемент полученной последовательности в новую форму: из i в names[i], то есть из каждого индекса, условно обозначенным как i, мы получаем имя, хранящееся в массиве names под индексом i. Далее метод ToA преобразует последовательность в массив, и этот массив записывается в переменную a.
И вот, мы уже имеем ответ: все нам нужные имена хранятся в массиве a. Идущие далее 3 строчки обеспечивают "красивый" вывод "на всевозможные случаи". Их можно заменить на a.Pr — все элементы массива a будут выведены через пробел. Но рассмотрим эти "3 строчки".
Если длина массива a равна длине массива values (то есть в массив a были отобраны все элементы массива values), то выводим сообщение "У всех одинаковый возраст.". Иначе, если длина массива a равна 1, то выводим этот единственный элемент массива a с сообщением "старше всех.". Если же не выполняется ни то, ни другое условие, то на экран через пробел будет выведено следующее:
все элементы массива a, кроме последнего, которые с преобразовали в строку, используя ", " в качестве разделителя;"и";последний элемент массива a;"старше всех.".Пример работы: