4 года назад

64- цветное изображение файла типа BMP имеет размер 1024*768 пикселей.Определите информационную емкость файла в Килобайтах.

Знания

Информатика

1 ответ:

ftolik4 года назад

0 0

все просто-

64 цветов значит каждый пиксель(точка) кодируется 6ю битами....

теперь перемножаем высоту и ширину 1024х768=786432 пикселя....умножаем на 6

786432х6=4718592бит....теперь разделим на 8 и найдем сколько байт 4718592/8=589824байт....

разделим на 1024 чтобы найти сколько килобайт 589824/1024=576килобайт

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

Помогоите решить . в слове МОЛОДЕЖНЫЙ поменяли местами буквы стоящие на нечетных и следующих за ними четных позициях . группы ид

JoHelga79 [162]

М О Л О Д Ё Ж Н Ы Й - исходное слово
Действуем по заданию и меняем позиции букв, а именно нечетные на четные.
То есть получается такая комбинация букв: О М О Л Ё Д Н Ж Й Ы. В этой комбинации нужно найти сколько всего идущих подряд согласных букв. Это 4 согласные: О М О Л Ё Д Н Ж Й Ы.

Ответ: 4

0 0

4 года назад

Помогите пожалуйстаС клавиатуры вводятся 5 символов.Подсчитать количество знаков препинания.в VBA

Valentinych [21]

Sub Z()
Dim s As String
Dim i As Integer
Dim n As Integer
For i = 1 To 5
s = InputBox("Введите строку")
If s = "." Or s = "," Or s = ";" Or s = ":" Then n = n + 1
Next i
MsgBox ("Знаков препинания: " & n)
End Sub

0 0

4 года назад

К числу 12 применили в некотором (порядке) три операции: умножили на 3, разделили на 3 и прибавили 3. Какое наибольшее число мог

Taksa2003 [14]

Если я правильно понимаю, порядок действий любой, тогда так:
12:3=4
4+3=7
7х3=21 - наибольшее число, которое могло получиться, а при любом другом порядке - 15 получается.
Надеюсь, смогла помочь.

0 0

4 года назад

Напечатать таблицу стоимости 50, 100, 150, .... 1000 г сыра. Стоимость 1 кг вводится с клавиатуры

Антон Олексенко

program seee;
uses crt;
var p,b,c:real;
i,v:integer;
begin
clrscr;
readln(p);
writeln;
writeln('mass price ');
writeln;
while v<>1000 do
begin
v:=v+50;
writeln(v,'g ',v*p/1000:2:2);
end;
readkey;
end.

0 0

4 года назад

Pascal ABC.Помогите,пожалуйста!!!Напишите программу, которая двигает квадрат из левого верхнего угла в правый верхний. В качеств

ТатьянаНИ

Uses graphabc;
begin
window.IsFixedSize := true;
window.Height := 600;
window.Width := 800;
pen.Color := clred;
lockdrawing;
for var i := 0 to 750 do
begin
  window.Clear;
  DrawRectangle(i, 0, 50 + i, 50);
  redraw;
end;
end.

0 0

1 год назад