Вот и ответ к вопросу о <span>басне Крылова " Волк и ягненок"</span>
V = K * I, где:
V - объем.
K - размер изображения.
I - количество бит на цвет.
N = 2^i, где:
N - количество цветов.
Дано:
I1 = 24 бит.
N2 = 16 цветов.
Найти: V1/V2.
Найдем количество бит на цвет при вторичном сохранении:
N = 2^i.
16 = 2^i.
I2 = 4 бита.
Найдем во сколько раз одно изображение больше другого.
V1/V2 = (K * I1)/(K * I2).
Так как сохраняем тот же рисунок, то размер изображения не меняется, его можно сократить.
V1/V2 = I1/I2.
V1/V2 = 24/4.
V1/V2 = 6.
Ответ: объем изменился в 6 раз.
<em>// PascalABC.NET 3.2, сборка 1504 от 09.07.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(30,1,20); a.Println;
Writeln('Элементов, оканчивающихся цифрой 8- ',
a.Where(x->x mod 10=8).Count)
end.
<u>Пример</u>
1 3 20 17 2 5 3 14 18 1 13 3 8 9 5 19 19 3 19 20 2 12 20 13 7 5 10 9 1 20
Элементов, оканчивающихся цифрой 8- 2
7 процентов это твой ответ
var
t : string := 'операция';
begin
writeln('до ', t);
delete(t, 8, 1);
delete(t, 6, 1);
delete(t, 3, 1);
delete(t, 1, 1);
insert('в', t , 4);
insert('ло', t , 6);
writeln('после ', t)
end.