7) 640*480=307 200 - всего пикселей
n=2^i
256=2^8
8 бит для кодирования одного пикселя
307200*8=2457600 бит для кодирования изображения
2457600/8/1024=300 Кб
8) 44100*16*23*60*2/8/1024/1024~232,15484619140625~232,2
Частота*разрядность*время в секундах*2(стерео) - объем в битах
объем в битах/8/1024/1024 - переводим в мегабайты
9) С такой задачей ни разу не встречался :/
Могу лишь предположить, что 4800*4=минимальная пропускная способность в битах. Если это так, то решение:
4800*4/8/1024=2,3 Кб
Но с 9 задачей я не уверен
Var
x: real;
begin
readln(x);
write('y = ');
if (x < -7) then write(7)
else if (x < 0) then write(-x)
else if (x <= 5) then writeln(x)
else write(5);
<span>end.</span>
для одного пикселя log2 65536 = 16 бит = 2 байта
1)var i,sum:integer;
begin
sum:=0;
i:=45;
while (i<=115) do begin
sum:=sum+i;
i:=i+1;
end;
writeln( 'Сумма = ', sum );
<span>end.
</span>2)var i:integer;
<span>begin
i:=2;
while (i<=150) do begin
If (i mod 2=0) and (i mod 13=0) then
writeln(i);
i:=i+1;
end;end.
3)</span>var c,A,i,N:integer;
begin
write('Введите целое число (N>0) N = ');read(N);
write('Введите целое число A = ');read(A);
c:=1;
i:=1;
while (i<=N) do begin
c:=c*A;
i:=i+1;
Writeln('A в степени ',i,' := ',c);
end;<span>end.</span>
