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

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


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

Найти расстояние между двумя точками с заданными координатами x1 и x2 на числовой оси:
|x2 − x1|.


uses
  PT4;

var
  x1, x2: real;

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

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