no 1. сообщение занимает 6120 байтов информации. сколько строк на странице,
если символов в каждой строке 45 и использована кодировка unicode?
n2. какое минимальный объем памяти (е кбайтах), достаточный для хранения
черно-белого растрового изображения размером 120x400 пикселя, если из-
вестно, что в изображении используется не более 16 градаций серого цвета.
​

9 кг /2=4.5/2=2.250 кг. сделали два взешивания. далее к в чашку с гирьками  в 250 гр добавляем крупу до равновесия  т.е 2 кг, от третье взвешивание. 

program xxx;   var i, n, max : integer;         s : real;         a : array [1..20] of integer; begin  write ('введите n= ');   readln(n);   for i: =1 to n do      readln (a[i]);   max: = a[1];   for i: =1 to n do      if a[i] > max then max : = a[i];   s: = sqrt(max);   write ('корень из наибольшего эл-та =', s)end.

самотестирование компьютера

                |

первый этап - загрузка специальной программы в микросхеме bios для поиска загрузчика операционной системы

                |

второй этап - программа загрузчик загружается в оперативную память для передачи работой комп.

                |

программа ищет файлы операционной системы и загружает их в оперативную память в качестве программных модулей

при включении комп. ос загружается в оп раньше остальных программ

program xxx;

  var i, n : integer

                    d : array[1..30] of real;

begin

  write ('введите разметность массива n=');

  readln(n);

  writeln(''введите элементы массива d: ');

  for i: =1 to n do

        readln(d[i]);

  writeln ('исходный массив d: ');

  for i: =1 to n do

      write(d[i]);

  for i: =1 to n do

      if d[i] mod 3 = 0 then d[i]: = 2 * d[i];

  writeln ('полученный массив d: ');

  for i: =1 to n do

      write(d[i]);

  readln

end.