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

Листинг задания Begin17
1
2
3
4
5
6
7
8
9
10
11
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.
Поделиться: