Камера делает фотоснимки размером 1280 960 пикселей. на хранение одного кадра отводится 160 пикселей. найдите максимальное возможное кол-во цветов в палитре изображения. .

1280 * 960 = 1 288 800 пикселей160 * 1024 *  8 = 1 310 720 бит1 310 720 бит / 1 288 800 пикселей = 1 бит на пиксель =>Количество цветов в палитре изображения будет 2.

var

  A: array [1..12] of integer;  //Одномерный массив из 12 целых чисел

  i: integer;  

 

begin

  for i:= 1 to 12 do  //Вводим элементы массива с клавиатуры

  begin

    writeln('Введите A[', i, ']');

    readln(A[i]);

  end;

  write('Исходный массив:  ');  //Выводим исходный массив

  for i:= 1 to 12 do

    write(A[i], '  ');

  writeln;  //Перевод на новую строку

  write('Измененный массив:  ');

  for i:= 1 to 12 do   {Изменяем все положительные элементы на 5 и распечатываем полученный массив}

  begin

    if A[i] > 0 then A[i]:= 5; 

    write(A[i], '  ');

  end;

  writeln;  {Переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}

end.

Если все правильно, отметь решение как лучшее)

    

1)

var

  a, b, c: real;

  IDE: boolean;

 

begin

  IDE:= false;

  writeln('Введите 2 числа');

  readln(a, b);

  c:= a;

  if (IDE = false) and (a < b) then 

  begin

    a:= a + b;

    b:= c * b;

    IDE:= true;

    writeln('a = ', a, ', b = ', b);

  end;

  if (IDE = false) and (b < a) then 

  begin

    a:= a * b;

    b:= a + b;

    IDE:= true;

    writeln('a = ', a, ', b = ', b);

  end;

  if (IDE = false) and (a = b) then

  begin

    writeln('Числа равны');

    IDE:= true;

  end;

end.

2)

var

  a, b: real;

 

begin

  writeln('Введите 2 числа');

  readln(a, b);

  if a < b then a:= 0;

  writeln('a = ', a, ', b = ', b);

end.

3)

var

  k, b: real;

 

begin

  writeln('Введите цену журнала');

  readln(k);

  writeln('Введите, сколько у покупателя денег');

  readln(b);

  if b > k then writeln('Покупатель получит ', b - k, ' р сдачи');

  if b = k then writeln('Покупатель не получит сдачи');

  if b < k then writeln('Покупателю придется доплатить ', k - b, ' р');

end.

4)

var

  a: 100000..999999;

  a1, a2, a3, a4, a5, a6: 1..9;

 

begin

  writeln('Введите шестизначное число');

  readln(a);

  a1:= a div 100000;

  a2:= (a mod 100000) div 10000;

  a3:= (a mod 10000) div 1000;

  a4:= (a mod 1000) div 100;

  a5:= (a mod 100) div 10;

  a6:= a mod 10;

  if (a1 + a2 + a3) = (a4 + a5 + a6) then writeln('Число является счастливым')

  else writeln('Число не является счастливым');

end.

5)

var

  a, b: integer;

 

begin

  writeln('Введите числа A и B');

  readln(a, b);

  if b mod a = 0 then writeln('Число ', a, ' является делителем числа ', b)

  else writeln('Число ', a, ' не является делителем числа ', b);

end.

Если все правильно, отметь решение как лучшее)

Если возникнут вопросы - задавай