❤️❤️❤️Условие задания:Сканируется цветное изображение размером 7, 62 х 7, 62 дюйм. Разрешающая сканера —1200 x 1200 dpi, глубина цвета — 8 бита. Какой информационный объем будет иметь полученныйграфический файл?ответ:... бит​

1 дюйм = 2,54 см
7,62 см * 7,62 см = 3 дюйма * 3 дюйма
Количество точек сканированного изображения = 1200*1200*3*3
32 бита = 32/8 байт = 4 байта
Объем изображения = 1200*1200*3*3*4 байт = 1200*1200*3*3*4/1024 Кбайт = 50625 Кбайт = 50625/1024 Мбайт ≈ 50 Мбайт

var

  number, N, npol, notr, n0, i: integer;  {npol - количество положительных чисел, notr - количество отрицательных, n0 - количество нулей}

 

begin

  writeln('Введите N');

  readln(N);

  for i:= 1 to N do

  begin

    writeln('Введите целое число');

    readln(number);

    if number < 0 then notr:= notr + 1;

    if number > 0 then npol:= npol + 1;

    if number = 0 then n0:= n0 + 1;

  end;

  writeln('Было введено ', notr, ' отрицательных чисел, ', npol, ' положительных чисел, ', n0, ' нулей');

end.

А для тестов ты просто вводишь числа и проверяешь, правильно ли нашлось количество.

USES GraphABC, CRT; 

VAR klavisha:char;
begin
  maximizewindow;
  rectangle(600,100,1200,1000);
  circle(900,250,100);
  circle(900,500,100);
  circle(900,750,100);
  repeat
    klavisha:=readkey;
    circle(900,250,100);
    circle(900,500,100);
    circle(900,750,100);
    if klavisha='1' then floodfill(900,250,clred);
    redraw;
    if klavisha='2' then floodfill(900,500,clyellow);
    redraw;
    if klavisha='3' then floodfill(900,750,clgreen);
    redraw;
  until 9>10;
end.

Среда разработки PascalABC, свет на светофоре переключать на 1, 2 и 3 соответственно.