Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
1 год назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад