Question

Ввести с экрана координаты двух точек, найти расстояние между ними.

 

Answer 1

var
    x, x1, y, y1, d : Integer;
begin
    Writeln('Введите координаты первой точки:');
    Write('x: ');
    Readln(x);
    Write('y: ');
    Readln(y);

    Writeln('Введите координаты второй точки:');
    Write('x: ');
    Readln(x1);
    Write('y: ');
    Readln(y1);

    d := sqrt( sqr(x1-x) + sqr(y1-y) );
    Write('Расстояние между двумя точками: ', d);
    Readln;
end.