Const m=3; n=4;
b:array[1..m,1..n] of real=
((-3.3,-1.6,5.7,4.3),(7.6,15.2,-9.1,-3),(-8.6,-3.7,1.3,-0.1));
var c:array[1..n] of real;
i,j:integer;
begin
for i:=1 to m do
begin
for j:=1 to n do write(b[i,j]:7:2);
writeln;
end;
for j:=1 to n do c[j]:=1;
for j:=1 to n do
for i:=1 to m do
if b[i,j]<0 then c[j]:=c[j]*b[i,j];
writeln;
for j:=1 to n do write(c[j]:7:2);
writeln;
<span>end.
</span>
16 Кбайт = 16*1024 байт = 16*1024*8 бит
Память для одного пикселя: 16*1024*8 / (128*128) = 8 бит
Число цветов = 2^8 = 256
Написано на Pascal
var a:real;i,k:integer;
begin
writeln('Введите 3 числа');
for i:=1 to 3 do
begin
read(a);
if (a>=2.5) and (a<=5.2) then begin
writeln('Число ',a,' входит в интервал');
k:=k+1;
end;
end;
if k=0 then writeln('Таких чисел нет');
end.<span>
</span>
K= 2048*64*32=4194304бит
v = 16кб.
t-?
------------------
N=2^i
t=I/v
t=(k*i)/v=4194304i/131072 = 32i
Var
x,y:integer;
begin
readln (x,y);
if (x <> y) then
if (x<y) then
writeln ('Min = ',x)
else
writeln ('Min = ',y);
end.