Три точки на плоскости заданы координатами, определить, существует ли треугольник с такими вершинами (использовать тип record для описания
координат). Нужно написать в Delphi 7

double d1=x1*x1+y1*y1;

double d2=x2*x2+y2*y2;

double d3=x3*x3+y3*y3;

if(d1<d2 && d1<d3)cout<<x1<<','<<y1<<endl;

else if(d3<d2 && d3<d1)cout<<x3<<','<<y3<<endl;

else cout<<x2<<','<<y2<<endl;

Объяснение:

1. а) картинки занимают 970 * 4 мб = 3880 мб, текст - 4096 * 256 * 64 * 16 бит = 2^12 * 2^8 * 2^6 * 2^4 бит = 2^30 бит = 2^7 мб = 128 мб (здесь учтено, что 1 мб = 2^23 бит).

полный объём 3880 мб + 128 мб = 4008 мб

б) объём флешки 4096 мб, так что рукопись поместится.

2. количество символов в алфавите 2^5 < 26 + 10 < = 2^6, поэтому на кодирование одного символа отводят 6 бит.

9 символов кодируются при 9 * 6 бит = 54 бит, 6 байт = 48 бит < 54 бит < = 56 бит = 7 байт. значит, на кодирование одного номера отводят 7 байт.

тогда чтобы сохранить в памяти 110 номеров, нужно отвести 110 * 7 байт = 770 байт.