1. Файлы какого типа сжимаются меньше всего при архивации?

jpg, mp3, avi и прочие рисунки , звуки, видео - не сжимаются.

//прога на Pascal`e
type
  myrec = record
  rost : byte;
  ves : byte;
  end;
var
  mas : array of myrec;
  n, i : byte;
  sumves, sumrost : longint;
begin
write ('Введите кол-во учеников: ');
readln (n);
setLength (mas, n);
  for i:=0 to n-1 do
  begin
  write ('Введите вес ', i+1, '-го ученика: ');
  readln (mas[i].ves);
  inc (sumves, mas[i].ves);
  write ('Введите рост ', i+1, '-го ученика: ');
  readln (mas[i].rost);
  inc (sumrost, mas[i].rost);
  end;

write ('Средний вес учеников: ', sumves / n, '; Средний рост: ', sumrost / n)
end.

using System;

 

namespace ConsoleApp1

{

   internal static class Program

   {

       private static Tuple<double,int> F(double x)

       {

           double xs = x * x;

           double result = 0.0;

           double k1 = 1.0;

           double k2 = 3.0;

           double k3 = 4.0;

           double nominator = xs;

           double sign = -1.0;

           double result2 = 1.0;

           int n = 1;

           while (Math.Abs(result - result2) > double.Epsilon)

           {

               ++n;

               result = result2;

               var d = nominator / (k1 * k2 * k3);

               result2 = result + sign * d;

               nominator *= xs;

               k1 += 1.0;

               k2 += 1.0;

               k3 += 1.0;

               sign = -sign;

           }

 

           return Tuple.Create(result, n);

       }