fork download
copy 
  1.  
  2. var n,M,o: integer;
  3. begin
  4. M:=5;
  5. o:=1;
  6. n:=0;
  7. while o<=M do
  8.   begin
  9.   write(o,' ',n,' ',M,' ');
  10.   o:=o*2;
  11.   if o>M then break;
  12.   n:=n+1;
  13.   end;
  14. write(n);
  15. end.
Success #stdin #stdout 0.01s 5264KB
comments (?)
stdin
copy 
7 21
1 2 547152
1 3 509157
1 4 539282
1 5 541645         
1 6 458433
1 7 385173

2 3 131528
2 4 92735
2 5 150511
2 6 94440
2 7 194542
3 4 216600
3 5 272401
3 6 157176
3 7 124077
4 5 57785
4 6 97323
4 7 242232
5 6 136663
5 7 283862
6 7 147426
stdout
copy 
1 0 5 2 1 5 4 2 5 2
https://ideone.com/DKxgY7
language:
Pascal (fpc 3.0.4)
created:
18 hours 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!