Какое количество информации несет сообщение о том, что встреча назначена 15 октября? 2. Выяснить, сколько бит информации несет каждое пятизначное число в двоичной системе счисления( отвлекаясь от его конкретного числового значения).
3. В корзине лежат 8 черных шаров и белых в три раза больше, чем черных Сколько информации несет сообщение о том, что достали черный шар.
Так как в таблицах истинности выражений А и В нет совпадающих строк, то это значит, что значения в столбцах А и В противоположны. Т.е., там где для какого-либо набора переменных выражение А имеет значение 0, выражение В будет равно 1, и наоборот, если для какого-либо набора переменных выражение А имеет значение 1, выражение В будет равно 0. Следовательно, в столбце значений таблицы истинности выражения a v b все значения будут равны 1. Количество единиц = 2^6 = 64
ответ: 64
i: integer;
label 1, 2, 3, 4;
begin
1:
Writeln('1)Периметр квадрата');
Writeln('2)Площадь равностороннего треугольника');
Write('Ваш выбор >>> ');
Read(n);
Writeln('');
if n = 1 then
begin
2:
Write('Введите площадь кварата >>> ');
Read(s);
if s < 0 then
begin
Writeln('Некорректный ввод');
Writeln('');
goto 2;
end;
a := Sqrt(s) * 4;
Writeln('');
Writeln('Периметр квадрата >>> ', a);
goto 4;
end
else
if n = 2 then
begin
3:
Write('Введите периметр равностороннего треугольника >>> ');
Read(a);
if a < 0 then
begin
Writeln('Некорректный ввод');
Writeln('');
goto 3;
end;
s := (sqrt(3) / 4) * Sqr(a/3);
Writeln('');
Writeln('Площадь равностороннего треугольника >>> ', s);
goto 4;
end
else
begin
Writeln('Некорректный ввод');
Writeln('');
goto 1;
end;
4:
Writeln('');
Writeln('1)Заного');
Writeln('2)Выйти');
Write('Ваш выбор >>> ');
Read(n);
Writeln('');
if n = 1 then
goto 1 ;
else
exit;
end.