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

Правильно ли я решила?Задача: Определить расстояние на плоскости между двумя точками с заданными координатами 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.

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

кратко, программа рабочая:

uses crt;
var x1,y1,x2,y2,g:real;
begin
write(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