Uses Crt;
var N, p,i : integer;
begin
ClrScr;
Write(' N= '); ReadLn(N);
if N<=30 then
if N=0 then Writeln('2^0 = 1')
else
begin
p:=1;
for i:=1 to N do
P:=2*P;
end;
Writeln(' 2^', n,' =',P );
ReadLn;
end.
Var i: Integer;
Begin for i := -20 to 20 do
if i mod 2 = 0 then write(i,' ');
<span>End.</span>
5 Кбайт = 1024*5*8 =40960 бит
Узнаем - сколько отводится места под 1 пиксель:
<span>40 960/ (164 * 132) = приблизительно 2 бит. Теперь подставим в формулу: 2^2=4 цвета</span>