В основе лежит формула определения расстояния между двумя точками в прямоугольной системе координат, при этом одна из точек совпадает с началом системы координат. В этом случае искомое расстояние определяется по формуле: Поскольку в задаче не ставится вопрос определения самого расстояния, достаточно для каждой точки вычислить значение L² и сравнить их. Окончательно задача сводится к нахождению минимального из значений по заданным координатам х и у.
var ax, ay, bx, by, rx, ry: real;
begin writeln('Введите координаты первой точки'); readln(ax, ay); writeln('Введите координаты второй точки'); readln(bx, by); rx := sqr(ax) + sqr(ay); ry := sqr(bx) + sqr(by); if rx < ry then writeln('Первая точка ближе') else if rx > ry then writeln('Вторая точка ближе') else writeln('Обе точки равноудалены') end.
1) 30 букв плюс 10 цифр в сумме дают 40 символов. Значит, для их кодировки нам потребуются цифры от 0 до 39. Переведем 39 в двоичную систему счисления, чтобы посмотреть, сколько битов (разрядов) оно займет. 39(10)=100111(2) ⇒ требуется 6 битов. 2) В номере сертификата 5 символов, значит они займут 5*6=30 битов. По условию номер сертификата кодируется целым количеством байтов, а в байте 8 бит. Делим 30 на 8 и получаем 3.75. Округляем в большую сторону. Номер сертификата занимает 4 байта. 3) 80 номеров займут 4*80=320 байт. ответ 2).
по заданным координатам х и у.
var a := ArrRandom(7, -10, 10);
a.println();
writeln(a.Where(x -> x mod 2 = 0).Average);
end.