Procedure SolveLinear;
var
k, x, b, y: real;
begin
write('k=');
readln(k);
write('x=');
readln(x);
write('b=');
readln(b);
y := k * x + b;
writeln('y=kx+b=', y);
end;
Минимальное возможное количество единиц в столбце значений предложенной функции равно 28.
Пять переменных порождают таблицу истинности, содержащую
строки значений. По условию для каждого из логических выражений a и b получается 4 единицы, следовательно нулей получается 32-4=28.
Функция
- это дизъюнкция значений a, порождающих 4 единицы и инверсии значений b, порождающей 28 единиц. Т.е. меньше 28 единиц быть не может никак.
Ответ:
48 80
Объяснение:
program abcd;
var
i, j, k: shortint;
begin
for i := 1 to 100 do
begin
k := 2;
for j := 2 to i div 2 do
if i mod j = 0 then Inc(k);
if k = 10 then Write(i, ' ');
end;
end.
<u>// PascalABC.NET </u>
<u>// Версия 3.3.5 сборка 1662 (29.04.2018)</u>
begin
var m := ReadArrInteger(10);
var (o, e) := (m.Where(t -> t.IsOdd).Count, m.Where(t -> t.IsEven).Count);
Println(o > e ? 'Нечетных больше' : o = e ? 'Поровну' : 'Четных больше');
end.
<u>Пример:</u>
1 2 3 4 5 6 7 8 10 10
Четных больше
Для записи результата одного спортсмена требуется log(2)12≈4 бита (2^4=16). Объем информации о финише 2/3 спортсменов = 4*12*2/3 = 32 бита = 4 байта.