(1024*768*24)/(1024*1024*8)=2,25мб
В первой скобке размер изображения в битах, во второй приводим к мегабайтам
Const n = 10;
var x: array[1..n] of integer;
i: integer;
begin
Randomize;
for i := 1 to n do
begin
x[i] := Random(11);
Write(x[i]:4)
end;
end.
8битов
32байта
16532бита
8кб
10мб
вродебы так,но я не уверен
Var
x, y, z: integer;
begin
read(x, y, z);
if (x = y) and (y = z) and (x = z) then
begin
x := 3 * x;
y := 3 * y;
z := 3 * z;
write(x, y, z);
end
else
if (y = z) then
begin
x := -x;
y := -y;
z := -z;
write(x, y, z);
end
else
begin
x := 222;
y := 222;
z := 222;
write(x, y, z);
end;
end.