Всего 52 ребёнка
Половина любит конфеты
20 человек и конфеты и мороженное
Сколько детей любит мороженное? Сколько детей любит только мороженное.
Решение:
1) 52:2=26 детей любит конфеты
2) 26+20=46 детей любят и то и то
Ответ: 26 детей любят только мороженное
Программа может выглядеть такЖ
uses crt;
const n=4;
type Mas=array [1..n] of real;
Var A: Mas;
i: integer;
Sum, Sred: real;
Begin
ClrScr;
for i:=1 to n do
begin
Write('A[',i, ']=');
ReadLn(A[i]);
Sum:=Sum+A[i];
end;
Sred:=Sum/n;
WriteLn ('Sred = ', Sred:5:2);
ReadLn;
end.
Вспоминаем формулу Шеннона
Общее количество карандашей равно 3+7 = 10.
p₁= 3/10 = 0.3; p₂ = 7/10 = 0.7
Программа работает в следующем виде:
n = InputBox(vbLf & "Напиши значение ""n"" (количество расчетов)")
ReDim X(n)
ReDim Y(n)
Randomize
For i = 1 To n
X(i) = 5 - 10 * Rnd
Next
S = 0
For Each b In X
S = S + X(1) / i
Next
MsgBox "S=" & S
Нижние строки я убрал, потому что не понял, зачем они и что должны выводить: в задании про них ничего не сказано.
Если для кодирования цвета используются 4 бита, то максимальное количество цветов равно 2^4-1 или 15. Еще один вариант - 0000 используется для обозначения черного цвета, поэтому цветов 15 плюс черный.