Var xa,ya,xb,yb,d2a,d2b:real; begin Write('Введите координаты (x,y) точки А: '); Readln(xa,ya); Write('Введите координаты (x,y) точки B: '); Readln(xb,yb); d2a:=sqr(xa)+sqr(ya); d2b:=sqr(xb)+sqr(yb); if d2a<d2b then Writeln('Точка А расположена ближе к началу координат') else if d2b<d2a then Writeln('Точка B расположена ближе к началу координат') else Writeln('Обе точки равноудалены от начала координат') end.
Тестовое решение: Введите координаты (x,y) точки А: 5 -3.7 Введите координаты (x,y) точки B: -4.2 3.8 Точка B расположена ближе к началу координат
Вот код на питоне:
N = int(input())
objects = []
for i in range(N):
objects.append(list(map(int, input().split(
rezult = []
summ = 0
price = 0
while summ <= 40:
Max = 0
index = -1
for i in objects:
if i[1] > Max and i[0] + summ <= 40 and not objects.index(i) in rezult:
Max = i[1]
index = objects.index(i)
if index == -1:
break
rezult.append(index)
summ += objects[index][0]
price += objects[index][1]
for i in rezult:
print(i + 1)
print(summ, price)
Объяснение:
При необходимости могу пояснить построчно.
xa,ya,xb,yb,d2a,d2b:real;
begin
Write('Введите координаты (x,y) точки А: '); Readln(xa,ya);
Write('Введите координаты (x,y) точки B: '); Readln(xb,yb);
d2a:=sqr(xa)+sqr(ya); d2b:=sqr(xb)+sqr(yb);
if d2a<d2b then Writeln('Точка А расположена ближе к началу координат')
else
if d2b<d2a then Writeln('Точка B расположена ближе к началу координат')
else Writeln('Обе точки равноудалены от начала координат')
end.
Тестовое решение:
Введите координаты (x,y) точки А: 5 -3.7
Введите координаты (x,y) точки B: -4.2 3.8
Точка B расположена ближе к началу координат