Var x1,y1,z1,x2,y2,z2,x3,y3,z3,abx,aby,abz,acx,acy,acz,s,mx,my,mz,c:real;
begin;
readln(x1);
readln(y1);
readln(z1);
readln(x2);
readln(y2);
readln(z2);
readln(x3);
readln(y3);
readln(z3);
abx:=x2-x1;
acx:=x3-x1;
aby:=y2-y1;
acy:=y3-y1;
abz:=z2-z1;
acz:=z3-z1;
mx:=aby*acz-abz*acy;
my:=abz*acx-abx*acz;
mz:=abx*acy-aby*acx;
c:=sqrt(sqr(mx)+sqr(my)+sqr(mz));
s:=0.5*c;
writeln(s);
end.<span>
</span>
<span>var
i:integer;
begin
i:=2;
while i<=100 do
begin
write (i,' ');
i:=i+2;
end;
end.</span>
Киттикрот -> китти р т
Можно просто проделать те же самые действия самостоятельно)
1)
[32, 512, 128]
Глубина цвета = log(128) / log(2) бит = 7.0 бит
Объем памяти = 32 * 512 пикселей * 7.0 бит = 114688.0 бит = 114688.0 / 8 / 1024 Кбайт = 14.0 Кбайт ~= 14 Кбайт