fork download
copy 
  1. program zxzx;
  2. var a, b: integer;
  3. begin
  4.  
  5.   b:=0;
  6.   readln(a);
  7.   while a<>0 do begin
  8.    if (a mod 6=0) or (a mod 11=0)then    b:=b+1;
  9.    readln(a);
  10.    end;
  11.   writeln(b);
  12.  
  13.  
  14.  
  15. end.
Success #stdin #stdout 0s 5308KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
0
https://ideone.com/HBViWW
language:
Pascal (fpc 3.0.4)
created:
9 days 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!