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

Категория: Delphi/Pascal
2011-11-13 18:32:49
code: #pascal
Program Begin17;
Var
A,B,C:Real;
Begin
ReadLn(A,B,C);
WriteLn('AC = ',Abs(C-A));
WriteLn('BC = ',Abs(C-B));
WriteLn('Summa = ',Abs(C-A) + Abs(C-B));
End.

автор: Sklyarov Sergej a.k.a. S9

Поделиться:

Похожие статьи:

теги: студенты, сумма, отрезок, консольное приложение. ось, длина отрезков, abs