Задать вопрос
30 августа, 17:23

Найдите расстояние между двумя A (x1, y1), B (x2, y2)

+1
Ответы (1)
  1. 30 августа, 19:45
    0
    var x1, x2, y1, y2, s:real;

    begin

    writeln ('Введите координаты точки A') ; write ('X=') ;

    read (x1) ;

    write ('Y=') ;

    read (y1) ;

    writeln ('Введите координаты точки B') ;

    write ('X=') ;

    read (x2) ;

    write ('Y=') ;

    read (y2) ;

    s:=sqrt (sqr (x2-x1) + sqr (y2-y1)) ;

    writeln (s) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Найдите расстояние между двумя A (x1, y1), B (x2, y2) ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы