1024 = 2 в 10 степени, значит глубина цвета = 10 бит, всего пикселов 16*24 = 384. Объём = 384*10 = 3840 бит = 480 байт
Program n1;
const n=10;
var a: array[1..n] of integer;
i: integer;
p: real;
begin
randomize;
p:=1;
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i],' ');
if a[i]<10 then p:=p*a[i];
end;
writeln;
write(p);
end.
Задание 3.7
//Pascal
var i,n,k:integer;
begin
n:=24;
k:=1;
//количество амеб через
//цикл for
for i:=1 to n div 3 do begin
k:=k*2;
writeln('Время :',i*3,' Амеб :',k);
end;
writeln;
//количество амеб через
//цикл while
i:=0;
k:=1;
while i<n do begin
i:=i+3;
k:=k*2;
writeln('Время :',i,' Амеб :',k);
end;
writeln;
//количество амеб через
//цикл Repeat
i:=0;
k:=1;
repeat
i:=i+3;
k:=k*2;
writeln('Время :',i,' Амеб :',k);
until i=n
end.
Задание 3.8
var
k,b,t:integer;
begin
for b:=1 to 10 do
for k:=1 to 20 do
for t:=1 to 200 do
if (b*10+k*5+t*0.5=100)and(b+k+t=100)then writeln('Быков: ',b,' Коров:',k,' Телят:',t);
end.