program Pr1; var a,y,z:integer; x:real; begin readln(a); if a mod 2 = 0 then begin x := exp(3*ln(a)); writeln(x:8:3); end else begin a := a+3; writeln(a); end; end.
в кинозале всего 16×32=512 мест. Сообщение о купленном билете однозначно определяет выбор одного из этих мест. Из уравнения 2 i = 512=29получаем: i=9 бит. Но эту же задачу можно решать иначе. Сообщение о номере ряда несет 4 бита информации, т.к. 24=16. Сообщение о номере места несет 5 бит информации, т.к. 25=32. В целом сообщение про ряд и место несет: 4+5=9 бит информации. Данный пример иллюстрирует выполнение закона активности информации (правило сложения): количество информации в сообщении одновременно о нескольких результатах независимых друг от друга событий равно сумме количеств информации о каждом событии отдельно.
У меня это уже было я из тетрадки перепишу 2) 100001100 = 2^8 + 2^3 + 2^2 = 256 + 8 + 4 = 268 3) 137 = 10001001 (нужно число делить на 2, записывая остаток, и так до тех пор пока число уже нельзя будет делить, потом записываем остатки в обратном порядке) 137 / 2 = 68 ( остаток 1) 68 / 2 = 34 (остаток 0) 34 / 2 = 17 (остаток 0) 17 / 2 = 8 (остаток 1) 8 / 2 = 4 (0) 4 / 2 = 2 (0) 2 / 2 = 1 (0) Теперь надо записать остатки в обратном порядке = 10001001 4) Как я понял 8 и 16 это систему счисления, если да то: а)151 = 1 * 8^2 + 5 * 8^1 + 1 * 8^0 = 64 + 40 + 1 = 105 б) 2С = 2 * 16 + 12(С) = 32 + 12 = 44 ну блин как то так наверное
program Pr1;
var a,y,z:integer;
x:real;
begin
readln(a);
if a mod 2 = 0 then
begin
x := exp(3*ln(a));
writeln(x:8:3);
end
else
begin
a := a+3;
writeln(a);
end;
end.