fork download
copy 
  1. {
  2.    Задача:
  3. 	- функция SUCC или PRED
  4.    Решение :
  5.    - автор Дмитрий Кузнецов
  6.    - цена $112.21
  7. }
  8.  
  9. program SUCC(INPUT);
  10. type
  11. 	some = (SUC, PRE, NEXT);
  12. var
  13. 	any	: some;
  14.  
  15. begin
  16.  
  17. 	any := NEXT;
  18.  
  19. 	any := PRED(any);
  20.  
  21. 	writeln(any);
  22.  
  23. end.
  24.  
Success #stdin #stdout 0s 5316KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
PRE
https://ideone.com/g7VIKK
language:
Pascal (fpc 3.0.4)
created:
1 day 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!