<span>Упростим формулу
НЕ((Белки> 100) И (Углеводы < 100)) = (правило де Моргана)
= </span><span>НЕ(Белки> 100) ИЛИ НЕ(Углеводы < 100) =
</span>= (Белки <= 100) ИЛИ (Углеводы >= 100)
Белки <= 100 - молоко, масло, картофель
Углеводы >= 100 - крупа, картофель
Всего 4 строки
I_{1} [/tex]=8 бит
i_{2} [/tex]=16 бит
i_{3} [/tex]=24 бит
i_{4} [/tex]=32 бит
V=i*m*n
V_{11} [/tex]=i1*m1*n1=8*1280*768=7864320(бит)=983040(байт)=960(кбайт)
V_{12} [/tex]=i1*m2*n2=8*1366*768=8392704(бит)=1049088(байт)=1024,5(кбайт)
V_{13} [/tex]=i1*m3*n3=8*1024*768=6291456(бит)=786432(байт)=768(кбайт)
V_{21} [/tex]=i2*m1*n1=16*1280*768=15728640(бит)=1966080(байт)=1920(кбайт)
V_{22} [/tex]=i2*m2*n2=16*1366*768=16785408(бит)=2098176(байт)=2049(кбайт)
V_{23} [/tex]=i3*m2*n2=16*1024*768=12582912(бит)=1572864(байт)=1536(кбайт)
V_{31} [/tex]=i3*m1*n1=24*1280*768=23592960(бит)=2949120(байт)=2880(кбайт)
V_{32} [/tex]=i3*m2*n2=24*1366*768=25178112(бит)=3147264(байт)=3073,5(кбайт)
V_{33} [/tex]=i3*m3*n3=24*1024*768=18874368(бит)=2359296(байт)=2304(кбайт)
V_{41} [/tex]=i4*m1*n1=32*1280*768=31457280(бит)=3932160(байт)=3840(кбайт)
V_{42} [/tex]=i4*m2*n2=32*1366*768=33570816(бит)=4196352(байт)=4098(кбайт)
V_{43} [/tex]=i4*m3*n3=32*1024*768=25165824(бит)=3145728(байт)=3072(кбайт)
<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),1,200); a.Println;
Writeln('Ср.арифметическое кратных 3: ',
a.Where(t->t mod 3=0).DefaultIfEmpty.Average)
end.
<u>Пример</u>
n= 15
185 103 5 33 116 167 189 36 79 110 188 12 26 11 10
Ср.арифметическое кратных 3: 67.5
<span>- 715http://calculatori.ru/perevod-chisel.html2 </span>
