Var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.
1. Курилы
2. Хорошего Колумб
3. Жи-ши пиши с буквой "и"
4.Пифагоровы "штаны" во все стороны равны
5. S= ab
6. Демон- М. Ю. Лермонтов
привет. это похоже на код из ардуино. Как считать числа из textBox и записать их в массив если они разделены пробелом?
К примеру если в textBox: 45 6 7, то в массиве будет mas[0]=45; mas[1]=6;
mas[2]=7
пользуйся
Общее количество кубиков - 24+8=32
Шанс достать красный кубик равен 24/32 = 3/4. Количество информации о том, что вытащен красный кубик будет равно ㏒₂(4/3) ≈ 0.415 бит
Шанс достать черный кубик равен 8/32 = 1/4. Количество информации о
том, что вытащен черный кубик будет равно ㏒₂(4) = 2 бит