Задание:
1. Написать программу для решения задачи: Точки на плоскости заданы своими координатами. Определить какая из них находится ближе к началу координат.
Решение:
Uses crt; var n,minind,i: integer; min,x,y: real; beginwriteln ('Введите количество точек: '); read (n); writeln ('Вводите по очереди координаты x и y точек.'); read (x,y); min: =sqr (x)+sqr (y); minind: =1; for i: =2 to n dobeginread (x,y); if sqr (x)+sqr (y) Знаете другой ответ?