2.
var x:real;
begin
read (x);
if (x>0) then writeln (x-2);
if (x=0) then writeln (10);
if (x<0) then writeln (x*x*x);
end.
1 и 2.
Пример для №1 - арифметическое сжатие с предсказаниями.
2- алгоритм хаффмана
Количество лепестков количество листьев серединка ____________________________________________________________________
признаки признаки
4 лепестка,6,7. 3 лепестка,4,6. красная,фиолетовая,
синяя,жёлтая