Задание:
Задача pascal Даны три точки А, В, С на числовой оси. Найти длины отрезков АС и ВС и их сумму. (нужно чтобы прошел тест на taskbook)
Решение:
Var A, B, C, AC, BC: integer; begin readln (a, b, c); AC: =abs (C — A); BC: =abs (B — A); S: =AC+BC; Writeln ('AC=', AC); Writeln ('BC=', BC); Writeln ('S=', AC+BC); end. Через модули если только)
Знаете другой ответ?