Вопрос 5

allekco Oct 23rd, 2019 14 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var
  2.     x: real;
  3. begin
  4.     readln(x);
  5.     if x = 0 then writeln(0.00);
  6.     if x > 0 then writeln(x:2:2);
  7.     if x < 0 then writeln(-x*x:2:2);
  8. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand