fork download
copy 
  1. program ideone;
  2. var
  3. 	F, C : longint;
  4. 	N : double;
  5. begin
  6. 	readln(N);
  7. 	if (N > 0) then begin
  8. 		F := trunc(N);
  9. 		C := F + 1;
  10. 		writeln(F, ' ',C);
  11. 	end else if (N < 0) then begin
  12. 		C := trunc(N);
  13. 		F := C-1;
  14. 		writeln(F,' ',C);
  15. 	end;
  16. end.
  17.  
Runtime error #stdin #stdout #stderr 0s 9120KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
./prog: attempt to read past end of Input (error #454 at 402b2a)
https://ideone.com/sLuJQx
language:
Pascal (gpc 20070904)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!