1. 16=2 степени i
2 в степени 4=2 в степени i
i=4
значит, 1 буква несет 4 бита информации
ответ: 4 * 16 = 64 бита
А) var a,b,c:real;
begin
readln(a);
readln(b);
readln(c);
if (a>b) and (a>c) then writeln('Победил 1! Результат: ',a);
if (b>a) and (b>c) then writeln('Победил 2! Результат: ',b);
if (c>b) and (c>b) then writeln('Победил 3! Результат: ',c);
end.
Я считаю, что словами написано верное условие, в приведенном фрагменте ошибка: вместо x > 0 должно быть x >= 0
var x: integer;
begin
readln(x);
if x >= 0 then
x := x - 50
else
x := x + 100;
writeln(x)
end.
Пример ввода:
0
Пример вывода:
-50
4 * 48 * 64 * 8 бит = 4 * 48 * 64 байт = 12 кбайт
<span>х=45
д=х+5
х=х-д+1
х=д+х
х=46</span>