fork download 
  1. Program exer(input,output);
  2. var N,i,p:integer;
  3.     f:boolean;
  4. begin
  5.     readln(N);
  6.     i:=1;
  7.     p:=1;
  8.     f:=false;
  9.     while (not f) do
  10.           begin
  11.           p:=i*p;
  12.           if (p>N) then
  13.                  f:=true;
  14.           else
  15.                i:=i+1;
  16.            end;
  17. end.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin 
Standard input is empty
compilation info 
prog.pas: In main program:
prog.pas:14: error: syntax error before `else'
stdout 
Standard output is empty
https://ideone.com/1iLLm
language:
Pascal (gpc 20070904)
created:
14 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!