1.
Написать
программу для решения задачи: Точки на плоскости
заданы своими координатами. Определить какая из них находится ближе к началу
координат.

Uses crt;
var n,minind,i:integer;
min,x,y:real;
begin
writeln(Введите количество точек: );
read(n);
writeln(Вводите по очереди координаты x и y точек.);
read(x,y);
min:=sqr(x)+sqr(y);
minind:=1;
for i:=2 to n do
begin
read(x,y);
if sqr(x)+sqr(y)begin
min:=sqr(x)+sqr(y);
minind:=i;
end;
end;
writeln(Точка под номером ,minind,.);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.