igorich1376

If16

Dec 2nd, 2025
51
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.28 KB | None | 0 0
  1. ##
  2. //var (a,b,c) := (-8.37,-4.01,6.13); +++
  3. //var (a,b,c) := (9.47,-6.56,-6.98); +++
  4. var (a,b,c) := ReadReal3;
  5. if (a<b) and (a<c) and (b<c) then
  6.   begin
  7.     a:=a+a;
  8.     b:=b+b;
  9.     c:=c+c;
  10.   end
  11. else
  12.   begin
  13.     a:=a*(-1);
  14.     b:=b*(-1);
  15.     c:=c*(-1);
  16.   end;
  17. Print(a,b,c)
Advertisement
Add Comment
Please, Sign In to add comment