<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=ReadlnString.OrderBy(c->c).ToArray;
var i:=s.FindIndex(t->t<>'0'); Swap(s[0],s[i]);
s.Println
end.
<u>Пример</u>
54560345345601323451233903454658345034521212
10000111222223333333334444444455555555566689
function myFunction(x: real):real;
begin
if (x>=-10) and (x<2) then
myFunction:=sqr(x)+4*x-7 else
if ((x<-10) and (x<>0)) or (x>=2) then
myFunction:=1/(sqr(x)+4*x-7);
end;
var x,y: real;
begin
write('Введите x: ');
readln(x);
y:=myFunction(x);
writeln('y = ',y);
end.
Первая цифра произведения может быть оценена, как первая цифра произведения двух старших цифр чисел 20·13 = 260, т.е. она будет равна 2.
Последняя цифра будет равна последней цифре произведения двух младших разрядов сомножителей 9·8 = 72, т.е. 2.
Само же произведение, увы, можно найти только вычислением.
Оно будет равно
2737716945423050345600398555176684633258912514924379847261460355903719144383097092
Объект картина признаки красота автор
треугольник. признаки коо-во углов , сторо и т.д
I — информационный объем одной точки (пикселя)
N — количество цветов
K — количество точек (пикселей)
V — информационный объем всего изображения
1.
Дано:
N = 256
Найти:
I - ?
Решение:
I = log₂N
I = log₂ 256 = 8 бит / 8 = 1 байт
Ответ: 1 байт
2.
Дано:
N = 65536
V = 2400 байтов
Найти:
Решение:
V = I*K
K = V / I
I = log₂N
I = log₂65536 = 16 бит / 8 = 2 байта
K = 2400 байтов / 2 байта = 1200
Ответ: 1200 точек
3.
Дано:
K = 1024*768 = 786432
N = 65536
Найти:
V — ?
Решение:
V = I*K
I = log₂N
I = log₂65536 = 16 бит / 8 = 2 байта
V = 2 байта * 786432 = 1572864 байта / 1024 = 1536 Кбайт / 1024 = 1.5 Мбайт
Ответ: 1.5 Мбайт
4.
Дано:
K = 128*256 = 32768
V = 8 Кбайт * 1024 = 8192 байт
Найти:
N – ?
Решение:
N = 2^i
V = I*K
I = V / K
I = 8192 байт / 32768 = 0.25 байт * 8 = 2 бита
N = 2^2 = 4
Ответ: 4 цвета