Dim i As Integer, sum As Single, sr As Single, max As SingleDim k(10) As Single, q As IntegerDim zRandomizeFor i = 0 To 10k(i) = Rnd() * 30 - 10sum = sum + k(i)Cells(i + 1, 1) = Round(k(i), 2)If max < k(i) Thenmax = k(i)q = iEnd IfNextCells(i + 1, 1) = "max = " & maxsr = sum / 10k(q) = sri = 0For Each z In kCells(i + 1, 2) = Round(z, 2)i = i + 1NextCells(i + 1, 2) = dCells(i + 1, 2) = "sr = " & sr
Логическая схема в приложении, однако функция не имеет смысла т.к.
F = (!A&BvC) v !C ВСЕГДА равно 1.
F = (!A&BvC) v !C = !A&B v C v !C = !A&B v 1 = 1
Задание два:
F = !A & !(B v C)
1)754=1EC
2)0,141=
<span>0.03230303030303030303030303030303030303030303030<span>303
</span>3)126,33=</span>
11200.02222012010111202210022220120101112022100222201201
Если PascalABC то вот:
var a,b,p:real;
begin
Writeln('Введите число a,b');
readln(a,b);
p:=(a*b);
Writeln('p = ', p);
end.