Var a, i: integer;
begin
read(a);
while(a <> 0) do
begin
for i := 1 to a mod 10 do write('*');
writeln();
a := a div 10;
end;
<span>end.</span>
V = K * I, где:
V - объем.
K - размер изображения.
I - количество бит на символ.
N = 2^i, где:
N - палитра.
Дано:
K = 64*64.
N = 128 цветов.
Найти: V(кбайт).
N = 2^i.
128 = 2^i.
I = 7 бит.
V = K * I = (64 * 64 * 7)/2^13 = (2^6 * 2^6 * 7)/2^13 = (2^12 * 7)/2^13 = 7/2 = 3,5 кбайт.
Ответ: 3,5 кбайт.
Begin;
writeln('Площадь поверхности Земли=<span>510100000 км.^2);
writeln('Объём Земли=</span><span>1083 млрд. куб. км.');
writeln('Плотность Земли=</span><span>5,51 г/см^3');
end.</span>