Составить программу по сравнению целой, части вещественного числа A1,, введённого с клавиатуры (паскаль :)

dim a(12), b(12), c(12)

input "введите размерность массивов а и в - m= ", m 

print "введите элементы массивов а и в: "

for i=1 to m

  input a(i), b(i) 

next i

s=0

for i = 1 to m

  c(i)= a(i) + b(m-i+1)

  s= s+c(i)

next i 

print "массив а: " 

for i = 1 to m

    print a(i);

next   i 

print

print "массив b: " 

for i = 1 to m

    print b(i);

next   i 

print

print "массив c: " 

for i = 1 to m

    print c(i);

next   i 

print

print "сумма элементов массива с ="; s

рrogram summa;

var s, a, b, c : word;

            write('введите a - > '); readln(a);

            write('введите b - > '); readln(b);

            write('введите с - > '); readln(c);

            s=а+в+с

            write(' сумма равна ',s);

            readln

в принципе все, должно быть правильно

2^3 = 8 цветов (скорее всего оттенки серого)

v=i*k (объем=глубина цвета * кол-во точек)

i=10, т.к. 1024=2¹⁰ 

k=100*(15*18)=27000 точек

v=10*27000=270000 бит = 33 килобайт (1 килобайт = 8192 бит)