Решите то что выделено

program aaa;   var d, n : integer; begin  write ('введите число n-');   readln (n);   writeln('делители числа: ');   for d : =1 to n do  if n mod d = 0 then writeln (d)end.

2^i=n, n = 16

2^i=16

i=4 бит

50 * 4 = 200 бит

200: 8 = 25 байт

стандартный программе просмотра изображений и факсов не сохраняет в других форматах.

потому лучше открыть paint или любой другой просмотрщик или графический редактор

просто открыть в нем нужную картинку и файл-сохранить как(в новом окошке внизу в списке выбрать формат)

о форматах написано много в интернете.

если хотите пошаговую инсрукцию, то присоединяйте картинки и табличку, а то так не ясно че делать

var a: array [1..10] of integer;

min,max,i,c,b: integer;

begin

  read(c,b);

  randomize;

  for i : = 1 to 10 do

        a[i]: = random(b) -c+1;

  min: =1;

  max: =1;

  for i: = 1 to 10 do

  begin

        if a[min]> a[i] then min: =i;

        if a[max]< a[i] then max: =i;

  end;

  writeln(a[min], a[max]);

end.