1) 2^3=8 компьютеров в А
2) 32-8=24 компьютера в В
Var b: integer;
a: boolean;
begin
a:=true;
if a then b:=4
else b:=-4;
writeln(b)
end.
Узнаем сколько весит один кадр 640*480*8=2457600 бит
Сколько весит одна секунда 2457600*12=<span>29491200</span> бит
сколько весит час <span>29491200</span>*60с.*60мин.=<span>106168320000</span> бит
сколько мбайт <span>06168320000</span> бит : 8 : 1024 : 1024 = <span>12656,25</span> мбайт.
Примерно так.
//PascalABC.NET 3.1 сборка 1239
uses GraphABC;
const
n = 4;
begin
Window.CenterOnScreen;
var h := 100;
Window.SetSize(h * n, h * n);
Pen.Width := 3;
for var i := 1 to n - 1 do
begin
Pen.Color := clRandom;
Polyline((h * i, h * 0), (h * n, h * (n - i)), (h * (n - i), h * n), (h * 0, h * i), (h * i, h * 0));
end;
end.
Это вперед на 10 символов надеюсь не ошиблась