Блог учителя Информатики

Решение задачи Begin20


Условие задачи:

Даны координаты двух противоположных вершин прямоугольника: (x1, y1), (x2, y2). Стороны прямоугольника параллельны осям координат. Найти периметр и площадь данного прямоугольника.


uses
  PT4;

var
  x1, y1, x2, y2: real;

begin
  Task('Begin20');
  read(x1, y1, x2, y2);
  write(sqrt(sqr(x2 - x1) + sqr(y2 - y1)));
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

Оставьте комментарий