Ответ:
1: 64 цвета->2 в 6 степени, а это есть 6 бит на пиксель
дальше 32 на 128= 32 это 2 в 5 а 128 это 2 в 7=2^5+2^7=2^12
I=2^12 * на 6= 24576 бит= делим на 8 что бы получить байты 3072 байта переводим в КиБ и получаем 3 КиБ
Ответ: 3КиБ
2. 32 на 32 это 2 в 5 + 2 в 5=2 в 10
512 байт это 2 в 2 в 9 переводим в бит= 2 в 12
2^12/2^10=2^2=4 бит= 2^4 степени и равно 16 цветам
Ответ: 16 цветов
Объяснение:
1) <u>Определение теплоты</u> <u>
</u><u />Var q,i,rt:real;
Begin
Write('i='); readln(i);
Write('Rt='); readln(rt);
q:=(i*i)*rt;
Writeln('Q=',q);
End.
2) <u>Площадь треугольника</u>
Var s,p,a,b,c:real;
Begin
Write('A='); readln(a);
Write('B='); readln(b);
Write('C='); readln(c);
p:=(a+b+c)/2;
s:=p*(p-a)*(p-b)*(p-c);
s:=sqrt(s);
Writeln('S=',s);
End.
3)<u>Массив</u>
Var mas:array[1500..3700] of integer;
i,n:integer;
Begin
for i:=1500 to 3700 do begin
mas[i]:=i;
if (mas[i] mod 206 = 0) then writeln(mas[i]);
end;
end.
program vld;
var
x, y : integer;
begin
read(x);
if x <= -15 then
y := 5 * sqr(x)
else
if (x<= 25) and (- 15 < x) then
begin
y := -x;
writeln(y);
end
else
y := - sqr(x)
end.
===== PascalABC.NET =====
begin
var n := ReadInteger('n=');
var a := ArrRandom(n, 10, 99); // для одинаковых позиций вывода
a.Println;
// элементы, кратные трем, упорядочить по убыванию
// прочие оставить на своих местах
var v := a.Select((v, i) -> (v, i))
.Where(t -> t[0] mod 3 = 0)
.OrderByDescending(t -> t[0])
.ToArray;
var w := v.Select(t -> t[1]).Sorted.ToArray;
for var i := 0 to w.High do
a[w[i]] := v[i][0];
a.Println
end.
Ответ:
Я думаю дядей будет, наверное.