По информатике 1.найдите глубину цвета изображения, которого занимает 600 кб памяти и разрешение которого 640 на 480 пикселей 2.сколько памяти будет занимать изображение с глубиной цвета равной 2 бита и размером 600 на 800 пикселей

vara,b: integer; c: real; beginwriteln ('введите 1 число'); read (a); writeln ('введите 2 число'); read (b); c: =(a/1)/(1/b); writeln (c); end.

program mdd; uses crt; var a,b,c,d: longint; beginclrscr; readln(a,b,c,d); if (a> b) and (a> c) and (a> d) and (d< a) and (d< c) and (d< b) then writeln('правда')else writeln(''неправда); readkey; end.

64 = 1000000

-120 = -1111000

-96 = -1100000

57 =  111001

вот конвертер:

найти сумму элементов одномерного массива. размер произвольный. элементы вводятся с клавиатуры.

program summa;

var a: array[1..100] of real;

          i, n: integer;

              s: real;

begin

  write (‘n=’); readln (n);

  s: =0;

  for i: =1 to n do

        begin

            write (‘введитечисло’); readln (a[i]);

            s: =s+a[i];

        end;

        writeln(‘сумма   элементов равна  ‘,s);

end.