//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ReadlnString('Вводите').ToIntegers; mas.println;
var a:=readinteger('Введите число a:');
Writeln('Количество чисел которые меньше а=',mas.Where(t->t<a).Count);
end.
1072->20603171->61431000->0011 1110 1000
В ответе F два раза равно 1 и один раз 0, значит убираем уравнения на умножения, остается два уравнения на сложение 2 и 3.
теперь подставляем вуравнения числа из таблицы.
2 уравнение не подходит, т.к. в первой строчке будет 1+1=1, а в ответе 0.
Следовательно ответ 3
l=q*t
q=l:t
q=6*256:3 = 512 байт/с или же 4 096 бит/с
1. существенные признаки объекта-оригинала
2. разные модели объекта
3. схема метро, схема узора для вязания крючком, график зависимости расстояния от времени, физическая карта.