Видеопамять имеет объем, в котором может храниться 4-х цветное изображение размером 640 х 480. какого размера изображение можно хранить в том же объеме видеопамяти, если использовать 256-цветную палитру?

4 цвета умещаются в 2 битаобъем видеопамяти = 2 * 640* 480 = 614400 бит256 цветов умещаются в 8 бит

x * y * 8 = 614400 x / y = 1.33

x = 1.33 * y

1.33 * y * y * 8 = 614400 y*y = 57600,144y = 240x = 320

ответ 320 на 240

Program p452; var   a,b,m,d: integer; begin   write('введите размеры форточки (а,b) в см: ');   read(a,b);   write('введите диаметр головы васи в см: ');   read(d);   if a< b then m: =a+2 else m: =b+2;   { +2 - это зазор по 1 см с обоих сторон }   if d< =m then writeln('голова проходит')   else writeln('голова не проходит') end. тестовое решение: введите размеры форточки (а,b) в см: 25 40 введите диаметр головы васи в см: 23 голова проходит program p453; var   a,b,c,x,y,m1,m2,n1,n2: integer; begin   write('введите размеры кирпича в см (a,b,c): ');   read(a,b,c);   write('введите размеры отверстия в см (x,y): ');   read(x,y);   if a< b then       if a< c then begin           m1: =a;           if b< c then m2: =b else m2: =c       end       else begin m1: =c; m2: =a end   else       if b< c then begin           m1: =b;           if a< c then m2: =a else m2: =c       end       else begin m1: =c; m2: =b end;   if x< y then begin n1: =x; n2: =y end   else begin n1: =y; n2: =x end;   if (m1< =n1) and (m2< =n2) then writeln('кирпич пройдет в отверстие')   else writeln('кирпич не пройдет в отверстие') end. тестовое решение: введите размеры кирпича в см (a,b,c): 10 4 12 введите размеры отверстия в см (x,y): 5 9 кирпич не пройдет в отверстие program p454; var   a,b: integer; begin   write('введите значения а и b: '); read(a,b);   writeln('размеры чемодана ',3*a,'x',2*a,'x',a);   writeln('размеры коробки ',3*b,'x',2*b,'x',b);   if b< a then writeln('коробка поместится в чемодан')   else writeln('коробка не поместится в чемодан') end. тестовое решение: введите значения а и b: 18 16 размеры чемодана 54x36x18 размеры коробки 48x32x16 коробка поместится в чемодан

1) const n=5; var a: array[1..n,1..n]of integer; i,j: integer;       begin                for i: =1 to n do                        begin                                      writeln;                                                 for j: =1 to n do                                                          begin                                                                    a[i,j]: =i+j;                                                                     write(a[i,j]: 4);                                                           end;                           end;       end.2)        const           n=4; m=5;     vara: array[1..n,1..m]of integer; i,j,max: integer; begin    for i: =1 to n do          begin              writeln;               for j: =1 to m do                  begin                      a[i,j]: =random(100)-50;                       write(a[i,j]: 4);                   end;             end; max: =a[1,1]; for i: =1 to n do    for j: =1 to m do          if a[i,j]> max then              max: =a[i,j]; writeln; writeln(max); for i: =1 to n do      for j: =1 to m do            if (a[i,j]< 0)and(a[i,j]> -5)then                a[i,j]: =max; writeln; for i: =1 to n do    begin    writeln;         for j: =1 to m do              write(a[i,j]: 4);     end; end.