2. Заполните в программе пробелы.

Задача. Вычислить расстояние между двумя точками (x1,y1,x2,y2 – координаты точек).
program grey;
crt;
var d:real; x1,x2,y1,y2:;

writeln('Vvedite koordinati 1-oi tochki');
(x1,y1);
writeln('Vvedite koordinati 2-oi tochki');
readln();
d:=sqrt(sqr(y2-y1)+sqr(x2-x1));
writeln ('rasstoianie = ',d:6:2);
readln;
end.

karinakovalenko2    3   28.04.2020 22:12    2