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

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


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

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


uses
  PT4;

var
  a, b, c: real;

begin
  Task('Begin17');
  read(a, b, c);
  write(abs(c - a), abs(c - b), abs(c - a) + abs(c - b));
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

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