131. т.к. N=4, то i= 2, следовательно - 2 бита
133. 65 536 = 2^16, 16:8= 2 БАЙТА
137. 16 777 216 = 2^24, i=24
I=K*i=1024*768*24= 18 874 368 бит : 8 = 2 359 296 байт : 1024 = 2304 кбайт
остальные прости не знаю)
<span>A) Над каждой цифрой от запятой влево расставим разряды (от 0 до 4), вправо у нас будут отрицательные (-1 и -2) Далее каждую цифру умножаем на основание системы счисления в степени разряда и на соответствующую цифру числа и складываем
11001,01=1*2^4+1*2^3+0*2^2+0*2^1+1*2^0, 0*2^(-1)+1*2^(-2)=25,25
Б) прикреплю фото
В)Для начяала переведем это число в 10 СС
</span>11011.101102 =1∙2^4+1∙2^3+0∙2^2+1∙2^1+1∙2^0+1∙2^(-1)+0∙2^(-2)+1∙2^(-3)+1∙2^(-4)+0∙2^(-5) = 16+8+0+2+1+0.5+0+0.125+0.0625+0 = 27.6875 (10<span> СС)
дальше 27 разделим на 8 и получим
</span><span>27(10 СС) = 33 (8 СС)
дробная часть получается при умножении на основание СС то есть на 8
</span><span>0. 6875*8 = 5,5
оставляем целое число 5
теперь
5* 8= 40 на конце у нас ноль, умножение закончили
</span>Получилось:<span>0.6875(10 СС) = 0.54 (8 СС)</span>
<span>33(8) + 0.54(8) = 33.54(8)
</span><span>
С 16 СС тоже самое, только делим на 16. </span>
Ввод нуля означает завершение ввода(он нигде не учитывается)
program test;
var sum, x, counter, sumOfNegative, sumOfPositive: integer; average: real;
begin
sum:=0;
average:=0;
counter:=0;
sumOfPositive:=0;
sumOfNegative:=0;
read(x);
while x <> 0 do
begin
sum:=sum+x;
average:=average+x;
counter:=counter+1;
if x > 0 then
sumOfPositive:=sumOfPositive+x
else
sumOfNegative:=sumOfNegative+x;
read(x);
end;
average:=average/counter;
writeln('Sum = ', sum);
writeln('Arithmetic average = ', average);
writeln('The sum of positive numbers = ', sumOfPositive);
writeln('The sum of negative numbers = ', sumOfNegative);
readln;
end.
Var r,s,p:real;
begin
write('R=');
readln(r);
s:=Pi*sqr(r);
p:=2*Pi*r;
writeln('Площадь: ',s);
writeln('Периметр: ',p)
<span>end.</span>