Допустим, есть таблица "Цены" с полем "Цена". Считаем коэффициент для скидки. Допустим, скидка 20%, тогда K = 1 - (20% / 100%) = 1 - 0.2 = 0.8
Создаём запрос на основе таблицы "Цены". В построителе выражений (или непосредственно в заголовке столбца с данными в конструкторе запросов) пишем так:
ЦенаСоСкидкой: Цены.Цена*0,8
Количество информации вычисляется по формуле log(2)10≈3,32
<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
Четных больше