Напишите наименьшее число x, для которого истинно высказывание: НЕ (x < 35) И НЕ (x делится на 6)

300

Объяснение:

V = K * i, где  

V - информационный объём изображения (размер файла, содержащего изображение)

K - количество точек (пикселей )

i - глубина цвета (число бит, используемых для записи цвета одного пикселя)

N = 2^i, где  

N - количество цветов в палитре

i - глубина цвета (число бит, используемых для записи цвета одного пикселя)

^ - знак степени

2^i = 256

i = 8 бит = 8 / 8 = 1 байт (найдено подбором степени)

K = 240 * 320 = 76 800 пикселей

V = K * i = 76 800 * 1 = 76 800 байт занимает одно изображение

V = 76 800 байт = 76 800 / 1024 = 75 Кбайт занимает одно изображение

Т.к. камера делает снимок раз в 15 секунд, то за 1 минуту (60 секунд) она создаст 60 / 15 = 4 изображения

75 Кбайт * 4 = 300 Кбайт нужно выделить для хранения всех изображений, полученных за 1 минуту

Uses graphabc;
var
  i, j: integer;
  ar: array[1..10]of integer;
  b: boolean;

 label l1;
 begin
  b := false;
  for i := 1 to 10 do ar[i] := random(10, 300);
  l1:
  b := false;
  for i := 1 to 10 do
     for j := 1 to 10 do if((ar[i] = ar[j]) or (abs(ar[i] - ar[j]) < 10)) and (i <> j)
      then
      begin
      b := true;
      ar[i] := random(30, 300);
      end;
  if b = true then goto l1;
  window.Init(0, 0, 800, 600, clwhite);
  window.IsFixedSize := true;
  randomize;
  lockdrawing;
  pen.Width := 5;
  for i := 1 to 10 do
  begin
    pen.Color := rgb(random(0, 255), random(0, 255), random(0, 255));              drawcircle(400, 300, ar[i]);
    redraw;
end; 
end.