Пусть видеопамять компьютера имеет объём 1/8 мбайт. размер графической сетки - 640х480. сколько страниц экрана одновременно разместится в видеопамяти при палитре из 10 цветов?

    для 16 (2^4)

640*480*4=1228800 бит=153600 байт

512*1024=524288 байт

524288 /153600=3 

 

 

для 256 (2^8)

640*480*8=2457600 бит=307200 байт

512*1024=524288 байт 

  524288 /307200=1

Const   bd=['0'..'3']; var   s,wa,wb,w: string;   c: char;   i,n: integer;   bad_a: boolean; begin   writeln('вводите фразу, разделяя слова ровно одним пробелом');   read(s);   s: =s+' ';   n: =length(s); wa: =''; wb: ='';   i: =1; bad_a: =false; w: ='';   while i< =n do begin       repeat           c: =s[i];           if c< > ' ' then begin               bad_a: =bad_a or (c in bd);               w: =w+c;               inc(i)           end           else begin               if not bad_a then wa: =wa+' '+w;               if s[i-1]='я' then wb: =wb+' '+w;               w: =''; bad_a: =false           end       until c=' ';       inc(i);   end;   wa: =copy(wa,2,length(wa)-1);   wb: =copy(wb,2,length(wb)-1);   writeln(wa);   writeln(wb) end.

Program x; //работает только для строк var          i: longint;         s: string; begin     readln(s);     for i : = 1 to length(s) do         if (ord(s[i]) > = 192) and (ord(s[i]) < = 223) then             s[i] : = chr(ord(s[i]) + 32)         else if (ord(s[i]) > = 224) and (ord(s[i]) < = 255) then             s[i] : = chr(ord(s[i]) - 32);     writeln(s) end.