Объяснение:
^ не ставится, но выполняет свои действия, у себя его ставьте!
Расстояние от точки до начала координат находится как длина гипотенузы прямоугольного треугольника, катетами которого являются координаты точки. Поскольку нам нужны не сами расстояния, а лишь сравнить их, то можно сравнивать квадраты, чтобы не извлекать корня.
// PascalABC.NET 3.0, сборка 1088
var
x1,x2,y1,y2,r1,r2:real;
begin
Write('Введите координаты первой точки: '); Read(x1,y1);
Write('Введите координаты второй точки: '); Read(x2,y2);
r1:=sqr(x1)+sqr(y1); r2:=sqr(x2)+sqr(y2);
if r1>r2 then Writeln('Ближе вторая точка')
else
if r1<r2 then Writeln('Ближе первая точка')
else Writeln('Точки равноудалены')
end.
<em><u>Тестовое решение:</u></em>Введите координаты первой точки: 16.3 -11.7
Введите координаты второй точки: 15.8 12
Ближе вторая точка
На скане таблица для 1:)
2 не могу
3 2
4 2 подходит
4 Кб = 1024 * 4 байт = 1024 * 4 * 8 бит = 32768 бит
Ответ: 32768
Два решения.
1. Токарев - плотник, Плотников - слесарь, Слесарев - токарь.
2. Токарев - слесарь, Плотников - токарь, Слеварев - плотник.