fork download 
  1. {$MODE DELPHI} (*This program uses 32-bit Integer [-2^31 .. 2^31 - 1]*)
  2. {.$APPTYPE CONSOLE}
  3. var I: Integer;
  4. begin
  5.   for I := 0 to 10 do
  6.    writeLn (I, ' - ', I mod 8, ' + ', 8 - I mod 8 );
  7. end.
  8.  
Success #stdin #stdout 0s 5320KB
comments (?)
stdin 
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 
0 - 0 + 8
1 - 1 + 7
2 - 2 + 6
3 - 3 + 5
4 - 4 + 4
5 - 5 + 3
6 - 6 + 2
7 - 7 + 1
8 - 0 + 8
9 - 1 + 7
10 - 2 + 6
https://ideone.com/E7Pi5C
language:
Pascal (fpc 3.0.4)
created:
1 day 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!