16 Фев 20150 КомментариевPascal Решение задачи 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. Поделиться:
