4 года назад

Объем видеопамяти равен 512 килобайт,разрешения монитора 800*600 точек.найти количество цветов в палитре

1 ответ:

0 0

Объем видеопамяти равен 512 Кбайт = 524288 байт = 4194304 бит
разрешающая способность дисплея 800x600= 480000 точек
в одну точку можно "загрузить" -1 цвет= 4194304 бит / 480000 точек = 8,738133333333333 = 8 бит
значит количество цветов 2^8=256
Ответ: 256 цветов

Читайте также

В библиотеке n учебников по физике 7 класса, хватит ли их, чтобы обеспечить 3 класса, если кол-во учеников a, b, c Нужно написат

Nataliiaja

program

var a,b,c,d,n:integer;

begin

write('Введите кол-во учеников в классах:');

read(a,b,c);

writeln('Введите кол-во учебников в библиотеке:');

read(n);

d:=a+b+c;

if (n>=d) then writeln('Учебников хватит.')

else writeln('Учебников не хватит.')

end.

0 0

3 года назад

Pascal ABC Составьте программу вывода на экран различным цветом оценки Ос, которую получил ученик и текста: "Молодец.", если Ос=

Лена Фонарик [5]

Исходный программный код находится в приложении ниже.
Писал в: PascalABC.Net v.3.2, сборка 1325 (19.10.2016)

0 0

4 года назад

Попробуйте привести примеры получения , передачи и использования информации живыми организмами

voress

Жизненный опыт которого передает родитель ребенку

0 0

4 года назад

Написать программу определения стоимости разговора по телефону с учетом скидки 20% представляемой по субботам и воскресениям.Вид

Галина Николаевна...

Program gt;
var n,a:integer;
s:real;
begin
readln(n);
readln(a);
case a of
1..5:
s:=n*2;
6:
s:=10.4;
7:
s:=10.8;
end;
writeln(s);
end.
<span>
n-число минут
a-день недели
если case не проходили то можно сделать if
</span>program gt;
var n,a:integer;
s:real;
begin
readln(n);
readln(a);
if(a<6)then s:=n*2;
if(a=6)then s:=10.4;
if(a=7)then s:=10.8;
writeln(s);
end.

0 0

2 года назад

помогите плиз, Заполнить массив случайными числами в интервале [1000;2000) и подсчитать число элементов у которых вторая с конца

safronov [40]

var a:array [1..100] of integer;

i,n:integer;

s:string;

Begin

randomize;

for i :=1 to 100 do

begin

a[i]:= random(1000)+1000;

a[i]:=a[i] mod 100;

a[i]:=a[i] div 10;

if a[i] mod 2 = 0 then n=n+1;

end;

writeln(n);

End.

0 0

4 года назад