Графический файл содержит 16 градаций серого цвета, размер изображения 128*128 пикселей.Каков информационный объём этого файла?

Знания

Информатика

1 ответ:

ВИТАЛИЙ1971 [11]4 года назад

0 0

N= $2^{i}$ , где N - количество цветов, i - количество битов для 1го пикселя.

i = 4;

128*128*4=65536 битов = 8192 байтов = 8 КБайтов.

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

У исполнителя ВЫЧЕЛИТЕЛЬ 2 команды, которым присвоены номера 1:умножь на 42:вычти 1 Первая из них увеличивает число на экране в

Лукин Александр И...

Ответ:

12212

Объяснение:

3x4=12

12-1=11

11-1=10

10x4=40

40-1=39

0 0

4 года назад

Напишите процедуру которая определяет верно ли что переданное ей число - простое. (Используйте изменяемые параметры)

MrFant

Procedure prime(n: integer);
var i: integer;
begin
for i := 2 to round(sqrt(n)) do
    if n mod i = 0 then
    begin
      writeln('Число ', n, ' составное');
      exit
    end;
writeln('Число ', n, ' простое')
end;

begin
prime(3);
prime(8);
prime(23);
prime(35);
end.

Вывод:
Число 3 простое
Число 8 составное
Число 23 простое
Число 35 составное

0 0

4 года назад

Паскаль. Дан одномерный массив, значения которого вводятся с клавиатуры . Вычислить количество отрицательных элементов данного м

roman23r5 [2.3K]

Var a:array[1..100] of integer;
I,c,n:integer;
Begin
Readln(n);
For i:=1 to n do
Begin
Read(a[i]);
Write(a[i],' ');
If a[i]<0
Then c:=c+1;
End;
Writeln('кол-во отриц.=',c);
End.

0 0

4 года назад

Звуковая карта по другому называется ........

Недикова [7]

Аудиокарта или звуковая плата.

0 0

3 года назад

Ax^2+bx=0 решите через Паскаль пожааалуйста

Диковичный

Uses crt;
var a,b,c,x1,x2,x,D:real;
begin
writeln('Введите коэффициенты уравнения');
writeln;
write('a= ');
readln(a);
write('b= ');
readln(b);
write('c= ');
readln(c);
D:=b*b-4*a*c;
if D<0 then
writeln('Корней нет')
else
begin
if D=0 then
x:=-b/(2*a);
writeln ('x= ',x);
else
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
writeln ('x1= ',x1);
writeln ('x2= ',x2);
end;
end;
end.

0 0

3 года назад