8^135 = 1 и 135 нулей
8^47 = 1 и 47 нулей
64 = 8^2 = 1 и 2 нуля
8 = 10 в восьмиричной
1 = 1 в восьмиричной
теперь считаем единицы и получаем результат 5 единиц
Первая:
var a:array[1..50] of integer;
i,bol,men,ravn:integer;
begin
for i:=1 to 50 do begin
readln(a[i]);
if a[i]=0 then inc(ravn);
if a[i]<0 then inc(men);
if a[i]>0 then inc(bol);
end;
writeln(ravn,' - чисел равных нулю');
writeln(men,' - чисел меньше нуля');
writeln(bol,' - чисел больше нуля');
<span>end.</span>
1 Кбайт = 1024 байта
1/2 Кбайта = 512 байт
В каждом байте 8 бит => 512 байт = 512 * 8 = 4096 бит