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

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


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

Даны три точки A, B, C на числовой оси. Точка C расположена между точками A и B. Найти произведение длин отрезков AC и BC.


uses
  PT4;

var
  x1, y1, x2, y2: real;

begin
  Task('Begin19');
  read(x1, y1, x2, y2);
  write(2 * (abs(x2 - x1) + abs(y2 - y1)), abs(x2 - x1) * abs(y2 - y1));
end.
Поделиться:
Вам также может понравится
Перевод чисел в Python
Снегопад из снежинок на Python с помощью Черепашки
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal

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