32Гбит - 400 Байт
Степень двойки не может получиться. Если, конечно, у вас не опечатка в условии
I:integer;
s:string;
for i:=1 to length(s) do
begin
if s[i]='*' then s[i]:='_';
end;
вроде всё, программу сам оформляй
78 в двоичном виде это 0100 1110 (2^6 + 2^3 + 2^2 + 2^1, единицы в соответствующих разрядах).
В прямом коде 16битное число записывается так: старший разряд (15-й) это знак, 0 для плюса, 1 для минуса, разряды с 14-го по 0-й - само число.
То есть -78 = 1000 0000 0100 1110
По фоpмуле Хаpтли количество инфоpмации в битах = -log_2 p, где p --
веpоятность события. Стало быть, в данном случае веpоятность вытащить
зеленое яблоко pавна 1/4. То есть 1/4 всех яблок -- зеленые (а оставшиеся 3/4 - кpасные). Следовательно, всего яблок -- 48.
Var a:array [1..10] of integer;
j,sum:integer;
begin
sum:=0;
randomize;
for j:=1 to 10 do
begin
a[j]:=random(11)+20;
write (a[j],' ');
sum:=sum+a[j];
end;
writeln;
writeln ('Summa: ',sum);
readln;
end.