var floor , ceiling : longint; n : real ;begin readln(n); begin if trunc (n) < 0 then begin floor := trunc (n)-1; ceiling := trunc(n); end; if trunc(n) > 0 then begin ceiling := trunc(n) +1; floor := trunc(n); end; writeln(floor,' ',ceiling); end;end.
0 komentar:
Posting Komentar