4 года назад

Помогите решить пожалуйста 32-цветный рисунок содержит 150 байт информации. Из скольких точек он состоит ?

Знания

Информатика

1 ответ:

gizela4 года назад

0 0

Вес 1 пикселя в 32 цветной гамме равен 5 бит

150*8= 1200бит

1200/5= 240 точек

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

Дан целочисленный массив из 100 элементов. Элементы массива могут принимать произвольные значения (-100 до 100). Напишите програ

Vanstik [113]

//PascalABC.NET 3.4.2

begin

var ar := arrrandom(100, -100, 100);

ar.Println.Take(5).Sum.Println;

ar.TakeLast(5).Sum.Println;

end.

0 0

4 года назад

ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!! Помогите пожалуйста нарисовать в АЛГО или Паскале флаги: -Бангладеш; -Буркина-Фасо; -Великобритания; -

Lanka1328

Не будут. Потому что РИСОВАНИЕ в библиотех графики Паскаля.

0 0

3 года назад

Выполните действия, используя обратный и дополнительный коды: а) 9 - 2; б) 2 - 9; в) - 5 - 7

bl0geps [7]

Прямой код:

9₁₀=00001001₂

2₁₀=00000010₂

5₁₀=00000101₂

7₁₀=00000111₂

Обратный код:

-9₁₀=11110110₂

-2₁₀=11111101₂

-5₁₀=11111010₂

-7₁₀=11111000₂

Дополнительный код:

-9₁₀=11110111₂

-2₁₀=11111110₂

-5₁₀=11111011₂

-7₁₀=11111001₂

Обр. коды:

а) 9-2=00001001+11111101=100000110₂

б) 2-9=00000010+11110110=11111000₂

в) -5-7=11111010+11111000=111110010₂

Доп. коды:

а) 9-2=00001001+11111110=100000111₂

б) 2-9=00000010+11110111=11111001₂

в) -5-7=11111011+11111001=111110100₂

0 0

4 года назад

Задана последовательность из n целых чисел. Определить среднее арифметическое элементов последовательности , больших заданного з

натататик [774]

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a:=ReadArrInteger(ReadInteger('n='));
var d:=ReadInteger('d=');
Writeln('Среднее ',a.Where(x->x>d).Average)
end.

Тестовое решение:
n= 8
6 3 -1 12 11 9 7 4
d= 8
Среднее 10.6666666666667

0 0

4 года назад

Вычислить числа последовательности F и их порядковые номера расположенные в интервале от числа N1 и до N2

Olga20

Var i,N1,N2,M,j:integer;
begin
writeln('Введите число N1');Read(N1);
writeln('Введите число N2');Read(N2);
M:= abs(n2 - n1)+1;j:=n1;
for i:=1 to M do begin
writeln(i:3,j:3);
j:=j + 1;end;end.

0 0

3 года назад