<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-500,500); a.Println;
Writeln('min=',a.Min,', max=',a.Max,', Sп=',
a.Where(x->x in [10..99]).Sum)
end.
<u>Пример</u>
475 186 243 323 -497 23 -65 -2 180 74
min=-497, max=475, Sп=97
1) в 3 раза, так как чтобы закодировать 512 цветов нужно 9 знаков - 9 бит, а на 8 - 3 знака - 3 бит. Путём несложных вычисление 9/3 = 3
2) 128*128 = 16384 точки нужно закодировать. 4 кбайт - 32768 бит. 32768/16385 = 2 бита. А с помощью 2-х бит можно закодировать 4 цвета.
<u>Дано:</u>
размер изображения 64Х128 пикселей.
N = 128 цвета в палитре.
<u>Решение:</u>
1) Необходимо рассчитать информационный объем одного пикселя для этого используем формулу
N=2I, где N – количество цветов в палитре, а I – количество информации на один цвет или
пиксель.
128=27, отсюда I = 7 бит.
2) Что бы рассчитать минимальный объем изображения мы должны умножить размер изображения на количество информации на один цвет или пиксель - 64*128*7=57344 бит
3) В ответе нам необходимо указать в Килобайтах
57344 бит /(8*1024)=7
Всего символов в книге - 40 * 80 * 100 = 320 000;
1 символ – это 1 байт, в книге содержится 320 000 байт информации
Переведем в Мб, 320 000 байт / 1024 / 1024 = ~ 0,3 Мб.
Program geron;
var A,b, c,p,s:real;
begin
readln(a,b, c);
p:=0.5*a*b*c;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('площадь треугольника: ',s);
end.
