Advertisement
Infiniti_Inter

a3

Mar 24th, 2016
144
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.75 KB | None | 0 0
  1. ----------------------—
  2. Решение a3 задачи
  3. -----------------------
  4. Рас-м след случай: a=-1, b=2, c=5, обозначим расстояние переменной ans(от англ. answer) . Чтобы найти расстояние от a до b нам нужно из b-a(из конечно вычесть начальную), но может получиться что (b<a) значит применим функцию модуля-abs(от англ absolute)
  5. 1)|2-(-1)|=3
  6. 2)|5-2|=3
  7. 3)|5-(-1)|=6
  8. 4)ans=3+3+5=6
  9. --------------------
  10. код:
  11. var x1, x2, x3,ans: longint;
  12. begin
  13. readln(x1, x2, x3);
  14. ans:=abs(x2-x1)+ans;
  15. ans:=abs(x3-x2)+ans;
  16. ans:=abs(X3-x1)+ans;
  17. writeln(ans);
  18. end.
  19. ---------------------------
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement