Что-то такое? Видимо для этого нужны значения переменных.
В колоде 4 туза, следовательно шанс вытащить туза 4/32=1/8.
Неопределенность уменьшилась в восемь раз, 8=2 в третьей степени.
<span>Поэтому информации 3 бита. Вот,только-я знаю эту задачу,и там должно быть записано-32 карты</span>
А) Информация для человека - это знание, которое он получает из различных источников
б) Информация понятна, если она выражается на языке, доступном для получателя
в) Сообщение может пополнить знания человека, если содержащиеся в нем сведения являются понятным и новы
Program pr;
uses crt;
Var mas:array[1..1000, 1..1000] of integer;
N,i,j,sum:integer;
Begin
Writeln('Введите размер матрицы N*N');
Write('N = ');readln(N);
if (N>1000) or (N<1) then
Writeln('Ошибка, указанные значения выходят за пределы матрицы') else
Begin
Writeln('Введите элементы матрицы');
sum:=0;
for i:=1 to N do
for j:=1 to N do
Begin
readln(mas[i,j]);
if (mas[i,j] mod 2 <> 0)
then sum:=sum+mas[i,j];
end;
Writeln();
Writeln('Исходная матрица');
for i:=1 to N do
Begin
for j:=1 to N do
Begin
Write(mas[i,j], ' ');
end;
Writeln();
end;
Writeln();
Writeln('Сумма нечетных элементов = ',sum);
end;
readln;
<span>end.</span>