5 бит информации означает, что шанс достать красный карандаш равнялся 1/2⁵, т.е 1/32.
Пусть красных карандашей было k, тогда всего карандашей было k+3k+56 или 4k+56 штук. Шанс достать красный карандаш равен k/(4k+56) и составим уравнение:
Красных карандашей в коробке 2, белых 3×2=6, синих 56, всего 2+6+56=64.
Следовательно вероятность появления красного карандаша составит 2/64=
<em>1/32</em>, белого- 6/64=
<em>3/32</em>, синего- 56/64=
<em>7/8</em>
<span>Var
Text, Slovo, max:string;
Begin
WriteLn('Введите строку, разделенную пробелами: '); ReadLn(Tex);
Text:= Text + ' ';
max:='';
While Pos(' ',Text) <> 0 do
Begin
</span>Slovo<span>:= Copy(Text, 1, Pos(' ',Text) - 1);
Delete(Text, 1, Pos(' ',Text));
if Length(</span><span>Slovo</span><span>) > Length(max)
then max:= </span>Slovo<span>;
End;
WriteLn('Самое длинное слово: " ',max,' " его длина ',Length(max));
ReadLn;
End.</span>
var x,N : integer;
begin
x:= N;
while(N > 0) do
begin
if( N mod 10 >= 2) then begin
writeln('Не двоичное число');
break;
end;
N := N div 10;
end;
writeln(x);
end.
Не real, а read:
for i:=1 to 10 do
read(A[i]);
Сколько раз вы выводите массив?
Потому что это что-то непонятное:
for i:=1 to 10 do
writeln (A[1],' ',A[2],' ',A[3],' ',A[4],' ',A[5],' '); (10 раз выводятся первые 5 элементов(?))
writeln (A[6],' ',A[7],' ',A[8],' ',A[9],' ',A[10],' ');
Если нужно вывести массив 1 раз:
for i:=1 to 10 do
writeln (A[i],' ');