allekco

Вопрос 5

Oct 23rd, 2019
21
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