N = 2^i, где:
N - количество цветов в палитре.
I - количество бит на символ.
V = K * I, где:
V - объем.
K - размер изображения.
Дано:
N = 128 цветов.
K = 1 пиксель.
Найти: V.
N = 2^i.
128 = 2^i.
I = 7 бит.
V = K * I.
V = 1 * 7 = 7 бит.
Ответ: 7 бит.
Const
N = 20;
Var
A:array[1..N] of real;
i:integer;
S:real;
Begin
Randomize;
S:=0;
Write('Исходный массив A(',N,'):');
For i:= 1 to N do
Begin
A[i]:=random*(N*2+1)-N;
Write(' ',A[i]:0:3);
S:=S+A[i];
End;
WriteLn;
WriteLn('S = ',S);
End.
Доброго времени суток, с тебя '+'
Удачи ;)
pow(a,b) - возведение a в степень b
pow(m,1.0/3)
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
case ReadInteger('Номер месяца (1-12):') of
1,2,12:Writeln('Зима');
3..5:Writeln('Весна');
6..8:Writeln('Лето');
9..11:Writeln('Осень');
else Writeln('Неверный номер месяца')
end
end.
<u>Вариант "для школьников"</u>
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
var n:integer;
begin
Write('Номер месяца (1-12): '); Read(n);
case n of
1,2,12:Writeln('Зима');
3..5:Writeln('Весна');
6..8:Writeln('Лето');
9..11:Writeln('Осень');
else Writeln('Неверный номер месяца')
end
end.