Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
если переменная нужна целая то так:
x: =random(b-a)+a
если можно дробную, то так
x: =(b-a)*random+a
program xxx;
var d, x1, x2, y1,y2 : real;
begin
write('введите координаты 1 точки: ');
readln(x1, y1);
write('введите координаты 2 точки: ');
readln(x2, y2);
d: =sqrt(sqr(x2-x1)+sqr(y2-y1));
write('растояние между точками =', d);
readln
end.
Популярные вопросы