• Правильно ли я решила?Задача: Определить расстояние на плоскости между двумя точками с заданными координатами M1(x1,y1) и M2(x2,y2).
    program rastoyanie;
    uses crt;
    var M1,M2,g:real;
    begin
    writeln('x1,y1');
    read(M1);
    writeln('x2,y2');
    read(M2);
    g:=abs(M1-M2);
    writeln('rastoyanie megdu tochkami: g');
    end.

Ответы 1

  • кратко, программа рабочая:uses crt;var x1,y1,x2,y2,g:real;beginwrite('vvod x1,y1');read(x1,y1);write('vvod x2,y2');read(x2,y2);g:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));writeln(g);readkey;end.после запуска, например, вводим (3,4) и (0,0) Ответ 5
  • Добавить свой ответ

Войти через Google

или

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

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

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