Ответ:
10 байт = 80 бит
500 байт = 4000 бит
1,5 Кбайт = 12288 бит
2 Гбайт = 17179869184 бит
10240 байт = 10 Кбайт
204800 байт = 200 Кбайт
1,5 Кб = 1536 байт = 12288 бит
1,5 Гб = 1536 Мбайт = 1572864 Кб
Объяснение:
10 байт = 10 * 8 = 80 бит
500 байт = 500 * 8 = 4000 бит
1,5 Кбайт = 1,5 * 1024 * 8 = 12288 бит
2 Гбайт = 2 * 1024 * 1024 * 1024 * 8 = 17179869184 бит
10240 байт = 10240 / 1024 = 10 Кбайт
204800 байт = 204800 / 1024 = 200 Кбайт
1,5 Кб = 1,5 * 1024 = 1536 байт = 1536 * 8 = 12288 бит
1,5 Гб = 1,5 * 1024 = 1536 Мбайт = 1536 * 1024 = 1572864 Кб
<span>program gt;
var x1,x2,dx,y:real;
begin
readln(x1,x2,dx);
while x1<=x2 do
begin
y:=(x1-5)/(cos(x1*3.14/180));
writeln(x1,' ',y:1:4);
x1:=x1+dx;
end;
end.
<span>Это вторая задача.А теперь про первую. Она такая же как это но y= пиши что там в условии сказано и всё</span></span>
1) 32х32=1024 пикселей
16 градаций уместится в 4 битах (2^4=16)
1024х4=4096 бит = 512 байт = 0,5 кбайт
2)512х256=131072 пикселей
64КБ=65536 Байт = 524288 бит
524288/131072=4 бита на пиксель
2^4=16 цветов в изображении
//PascalABC.NET версия 3.2, сборка 1417
//Если программа не запускается, то обновите версию
begin
var m := MatrRandom(ReadInteger('n ='), ReadInteger('m ='), 0, 9);
m.Println();
{1}
Writeln('количество элементов соответствующей строки');
var number := ReadInteger('Введите число, для проверки =');
var a := m.Rows.Select(r -> r.Count(x -> x > number));
a.Println;
{2}
Writeln('Определить,есть ли в данном массиве столбец, в котором имеются одинаковые элементы.');
var b := m.Cols.Select(r -> r.GroupBy(v -> v).Count(g -> g.Count() > 1));
b.Println;
Writeln(b.Any(x -> x > 0));
{3}
Writeln('Заполнить массив');
var n := 2 * Max(m.RowCount, m.ColCount) div 2 + 1;
m := MatrGen(n, n, (i, j)-> ((n - 1 - i - j) * (i - j) > 0) ? 0 : 1);
m.Println();
end.