Информатика, опубликовано 2018-08-22 23:11:34 by Гость
Ввести с экрана координаты двух точек, найти расстояние между ними.
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на