32 = 2^5 значит 5 бит на цвет/пиксель
5*600*900 бит = 2 700 000 бит = 337 500 байт = 329.58984375 кб
Uses
GraphABC;
begin
Window.Init(0, 0, 300, 300, clWhite);
window.CenterOnScreen();
Pen.Color := clSilver;
Pen.Width := 3;
Brush.Style := bsGradient;
Brush.Color := clBlack;
Brush.GradientSecondColor := clWhite;
Rectangle(50, 50, 250, 250);
end.
1.
const k=15;
var a:array [1..k] of integer;
i:integer;
begin
for i:=1 to k do
a[i]:=random(50);
writeln (a)
end.
2.
const k=15;
var a:array [1..k] of integer;
i:integer;
begin
for i:=1 to k do
begin
a[i]:=i*2;
writeln (a[i])
end
end.