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