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

     

Ответы 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.
    • Автор:

      anaya
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years