fork download
copy 
  1. program ideone;
  2. function hitung(n:integer):integer;
  3. begin
  4. 	if (n=0)
  5. 	begin
  6. 		hitung:=0;
  7. 	end;
  8. 	else 
  9. 	{
  10. 		hitung:=hitung((n div 5)+(n mod 5));
  11. 	}
  12. end;
  13. begin
  14. 	hitung(2903);
  15. end.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
2903
compilation info 
Free Pascal Compiler version 3.0.0+dfsg-10 [2016/12/12] for x86_64
Copyright (c) 1993-2015 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling prog.pas
prog.pas(5,2) Fatal: Syntax error, "THEN" expected but "BEGIN" found
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode
stdout
copy 
Standard output is empty
https://ideone.com/4MMWf3
language:
Pascal (fpc 3.0.4)
created:
5 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!