Relhem
Program by_Relhem; var x1,y1,x2,y2,gip1,gip2:real; begin writeln ('Введите координату первой точки.'); readln (x1,y1); writeln ('Введите координату второй точки.'); readln(x2,y2); gip1:=sqrt(sqr(x1)+sqr(y1)); gip2:=sqrt(sqr(x2)+sqr(y2)); if gip1<gip2 then writeln ('Первая точка ближе') else writeln ('Вторая точка ближе'); end.
Answers & Comments
var
x1,y1,x2,y2,gip1,gip2:real;
begin
writeln ('Введите координату первой точки.');
readln (x1,y1);
writeln ('Введите координату второй точки.');
readln(x2,y2);
gip1:=sqrt(sqr(x1)+sqr(y1));
gip2:=sqrt(sqr(x2)+sqr(y2));
if gip1<gip2 then writeln ('Первая точка ближе')
else writeln ('Вторая точка ближе');
end.