Во сколько раз увеличится/уменьшится число А2=110,11 при переносе запятой: 1)на один разряд вправо
2)на два разряда в право
3)на один разряд в лево

var i: integer;

s,z: real;

begin

    z: =8;

    for i: = 2 to 7 do begin

          s: =s+z;

          z: = z*(1+10/100);

    end;

    writeln(s);

end.

16 цветов=4 бита/пиксель

640*250=160000 пикселей — размер изображения

160000*4=640000 бит = 80000 байт.

мир информатики  это только один и ноль, только черное и белое, только да и нет. нет третего варианта, нет всем родного и дорогого нам "не знаю", "возможно", "не то не се" - середины. нет сердца

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

мир информатики - это удобный мир логики и скоростных рассчетов, но не более того. вот потому искуственный интелект пока невозможен

программу написала в паскале, надеюсь подходит))

program 1; var a: array[1..10] of integer; i,q,max,min,l,k: integer; begin randomize; for i: =1 to 10 do begin a[i]: =random(100); write(a[i]: 3); end; writeln; for i: =1 to 10 do if (a[i]> q) and (a[i]< l) then inc(k); writeln('k=',k); end.

2. 

program 2; var a: array[1..10] of integer; i,max,min,k,l: integer; begin  randomize; for i: =1 to 10 do begin a[i]: =random(100); write(a[i]: 3); end; writeln; max: =a[1]; min: =a[1]; for i: =2 to 10 do begin if a[i]> max then begin  max: =a[i];   k: =i;   end; if a[i]< min then begin  min: =a[i];   l: =i;   end; end; writeln('max=',max,', его индекс=',k,', min=',min,', его индекс=',l); end.