Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.