Begin17. Даны три точки $$A$$, $$B$$, $$C$$ на числовой оси. Найти длины отрезков $$AC$$ и $$BC$$ и их сумму.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
program Begin17; var A,B,C,AC,BC,Sum: Real; begin Write('Введите значение точки A: '); Readln(A); Write('Введите значение точки B: '); Readln(B); Write('Введите значение точки C: '); Readln(C); AC:=Abs(A-C); Writeln('Расстояние отрезка AC равно: ',AC); BC:=Abs(B-C); Writeln('Расстояние отрезка BC равно: ',BC); Sum:=AC+BC; Writeln('Сумма отрезков AC и BC равно: ',Sum); end. |
Другие задачи из раздела Begin можно посмотреть здесь.
Комментарии: