Объём видеопамяти составляет 250 кбайт. графический дисплей работает в режиме 800 х 640 пикселей. какое максимальное количество цветов может содержать палитра?

(250*1024)/(800*640)= 0,5

0,5*8 = 4

количество цветов: 2^4 = 16

800x640=512000

250=250000

250000/512000=0.48

а это 16 цветов

Const   rn : string[36] = '0123456789abcdefghijklmnopqrstuvwxyz'; function decton(a : longint; raz : byte) : string; begin   if a> raz-1 then decton: =decton(a div raz,raz)+rn[(a mod raz)+1]   else decton: =rn[a+1]; end; function ntodec(a : string; raz : byte) : longint; begin   if length(a)> 0 then ntodec: =pos(a[length(a)],rn)-1+raz*ntodec(copy(a,1,length(a)-1),raz)   else ntodec: =0; end; var a,b : string; begin   a: ='1011'; b: ='110';   writeln('a = ',a,' (bin) = ',ntodec(a,2),' (dec)');   writeln('b = ',b,' (bin) = ',ntodec(b,2),' (dec)');   writeln(a+'+'+b+' = ',decton(ntodec(a,2)+ntodec(b,2),2),' (bin)  ',ntodec(a,2)+ntodec(b,2),' (dec)');   writeln(a+'-'+b+' = ',decton(ntodec(a,2)-ntodec(b,2),2),' (bin)  ',ntodec(a,2)-ntodec(b,2),' (dec)');   writeln(a+'*'+b+' = ',decton(ntodec(a,2)*ntodec(b,2),2),' (bin)  ',ntodec(a,2)*ntodec(b,2),' (dec)'); end.

1a) var   a: integer; begin   readln(a);   if a mod 2 = 0 then       println('da')   else println('net'); end. ====================================== 1 б) var   a: integer; begin   readln(a);   if a mod 10 = 7 then       println('da')   else println('net'); end. ================================ 2 а var   a: integer; begin   readln(a);   if (a div 10+a mod 10) mod 3 = 0 then       println('da')   else println('net'); end. ====================================== 2 б var   n,a: integer; begin   writeln('введите число');   readln(n);   writeln('введите a');   readln(a);   if (n div 10+n mod 10) mod a = 0 then       println('da')   else println('net'); end.