Объем изображения, размером 40х50 пикселей, составляет 1000 байт. сколько цветов используется в палитре?

40*50=2000 пикселей 1000 байт  =  8000 бит →  8000/2000=4 бита; количество используемых цветов   →    2^4=16 цветов.

Var     a,b,c,k: byte; begin k: =0; for a: = 1 to 9 do       for b: = 0 to 9 do               for c: = 0 to 9 do                       if ((a< b)and(b< c))or((a> b)and(b> c)) then                             begin                             k: =k+1;                             write(a,b,c,' ')                             end; writeln; writeln('k = ',k); end. 123 124 125 126 127 128 129 134 135 136 137 138 139 145 146 147 148 149 156 157 158 159 167 168 169 178 179 189 210 234 235 236 237 238 239 245 246 247 248 249 256 257 258 259 267 268 269 278 279 289 310 320 321 345 346 347 348 349 356 357 358 359 367 368 369 378 379 389 410 420 421 430 431 432 456 457 458 459 467 468 469 478 479 489 510 520 521 530 531 532 540 541 542 543 567 568 569 578 579 589 610 620 621 630 631 632 640 641 642 643 650 651 652 653 654 678 679 689 710 720 721 730 731 732 740 741 742 743 750 751 752 753 754 760 761 762 763 764 765 789 810 820 821 830 831 832 840 841 842 843 850 851 852 853 854 860 861 862 863 864 865 870 871 872 873 874 875 876 910 920 921 930 931 932 940 941 942 943 950 951 952 953 954 960 961 962 963 964 965 970 971 972 973 974 975 976 980 981 982 983 984 985 986 987 k = 204

Const     n = 4; var     a: array[1..n,1..n] of integer;     i,j,k: integer; begin randomize; writeln('1)'); k: =0; for i: = 1 to n do       begin       for j: = 1 to n do               begin               a[i,j]: =random(21)-10;               write(a[i,j]: 3,' ');               if a[i,j] < 0 then k: =k+1;               end;       writeln       end; writeln('k = ',k); writeln('2)'); for i: = 1 to n do       begin       for j: = 1 to n do               begin               if j > i then a[i,j]: =100;               write(a[i,j]: 3,' ')               end;       writeln       end; writeln('3)'); for i: = 1 to n div 2 do       begin       for j: = 1 to n do               begin               k: =a[i+n div 2,j];               a[i+n div 2,j]: =a[i,j];               a[i,j]: =k;               end       end; for i: = 1 to n do       begin       for j: = 1 to n do               write(a[i,j]: 3,' ');       writeln       end; end. 1)   10    2  -9    4 -10    5  -5 -10   4    9    4  10   3  -9  10  -6 k = 6 2)   10 100 100 100 -10    5 100 100   4    9    4 100   3  -9  10  -6 3)   4    9    4 100   3  -9  10  -6   10 100 100 100 -10    5 100 100