fork(1) download
copy 
  1. var
  2. win, way, vs: byte;
  3. lox, nelox, i: longint;
  4. p: real;
  5.  
  6. begin
  7. 	lox:=0;
  8. 	nelox:=0;
  9. 	randomize;
  10. 	for i:=1 to 1000 do
  11. 	begin
  12. 		win:=random(3);
  13. 		way:=random(3);
  14. 		if win=way then vs:=(random(2)+1+way) mod 3 else
  15. 		vs:=3-win-way;
  16. 		way:=3-vs-way;
  17. 		if way=win then inc(nelox) else inc(lox);
  18. 		p:=nelox/(lox+nelox);
  19. 		writeln(lox, ' ',nelox, ' ',p:1:3);
  20. 	end;
  21. end.
Success #stdin #stdout 0s 288KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
0 1 1.000
0 2 1.000
0 3 1.000
1 3 0.750
1 4 0.800
2 4 0.667
3 4 0.571
4 4 0.500
5 4 0.444
5 5 0.500
5 6 0.545
5 7 0.583
6 7 0.538
6 8 0.571
6 9 0.600
7 9 0.563
8 9 0.529
8 10 0.556
8 11 0.579
8 12 0.600
9 12 0.571
9 13 0.591
9 14 0.609
9 15 0.625
10 15 0.600
11 15 0.577
11 16 0.593
11 17 0.607
11 18 0.621
11 19 0.633
12 19 0.613
12 20 0.625
12 21 0.636
12 22 0.647
12 23 0.657
12 24 0.667
12 25 0.676
13 25 0.658
13 26 0.667
13 27 0.675
13 28 0.683
13 29 0.690
14 29 0.674
14 30 0.682
14 31 0.689
14 32 0.696
14 33 0.702
14 34 0.708
15 34 0.694
15 35 0.700
16 35 0.686
16 36 0.692
16 37 0.698
16 38 0.704
16 39 0.709
17 39 0.696
17 40 0.702
18 40 0.690
18 41 0.695
19 41 0.683
19 42 0.689
20 42 0.677
20 43 0.683
20 44 0.688
20 45 0.692
20 46 0.697
20 47 0.701
21 47 0.691
21 48 0.696
22 48 0.686
22 49 0.690
23 49 0.681
23 50 0.685
23 51 0.689
23 52 0.693
23 53 0.697
23 54 0.701
23 55 0.705
24 55 0.696
24 56 0.700
25 56 0.691
26 56 0.683
27 56 0.675
27 57 0.679
27 58 0.682
27 59 0.686
27 60 0.690
28 60 0.682
28 61 0.685
28 62 0.689
28 63 0.692
28 64 0.696
28 65 0.699
28 66 0.702
28 67 0.705
28 68 0.708
28 69 0.711
28 70 0.714
28 71 0.717
29 71 0.710
29 72 0.713
30 72 0.706
30 73 0.709
31 73 0.702
31 74 0.705
32 74 0.698
32 75 0.701
32 76 0.704
33 76 0.697
33 77 0.700
33 78 0.703
33 79 0.705
34 79 0.699
34 80 0.702
34 81 0.704
34 82 0.707
34 83 0.709
34 84 0.712
34 85 0.714
34 86 0.717
35 86 0.711
35 87 0.713
35 88 0.715
36 88 0.710
36 89 0.712
37 89 0.706
38 89 0.701
39 89 0.695
39 90 0.698
40 90 0.692
40 91 0.695
41 91 0.689
41 92 0.692
42 92 0.687
42 93 0.689
43 93 0.684
43 94 0.686
43 95 0.688
43 96 0.691
43 97 0.693
43 98 0.695
44 98 0.690
45 98 0.685
46 98 0.681
46 99 0.683
46 100 0.685
47 100 0.680
47 101 0.682
48 101 0.678
48 102 0.680
48 103 0.682
48 104 0.684
49 104 0.680
49 105 0.682
50 105 0.677
50 106 0.679
51 106 0.675
52 106 0.671
52 107 0.673
52 108 0.675
52 109 0.677
52 110 0.679
52 111 0.681
53 111 0.677
54 111 0.673
54 112 0.675
54 113 0.677
55 113 0.673
56 113 0.669
57 113 0.665
58 113 0.661
58 114 0.663
58 115 0.665
58 116 0.667
58 117 0.669
58 118 0.670
59 118 0.667
59 119 0.669
59 120 0.670
60 120 0.667
60 121 0.669
61 121 0.665
61 122 0.667
61 123 0.668
61 124 0.670
61 125 0.672
62 125 0.668
62 126 0.670
62 127 0.672
62 128 0.674
62 129 0.675
62 130 0.677
62 131 0.679
62 132 0.680
62 133 0.682
62 134 0.684
63 134 0.680
64 134 0.677
64 135 0.678
64 136 0.680
65 136 0.677
65 137 0.678
65 138 0.680
65 139 0.681
65 140 0.683
66 140 0.680
66 141 0.681
67 141 0.678
68 141 0.675
68 142 0.676
68 143 0.678
68 144 0.679
69 144 0.676
69 145 0.678
69 146 0.679
69 147 0.681
69 148 0.682
69 149 0.683
70 149 0.680
70 150 0.682
70 151 0.683
70 152 0.685
70 153 0.686
70 154 0.688
70 155 0.689
70 156 0.690
71 156 0.687
72 156 0.684
73 156 0.681
74 156 0.678
75 156 0.675
76 156 0.672
77 156 0.670
78 156 0.667
78 157 0.668
78 158 0.669
79 158 0.667
80 158 0.664
81 158 0.661
81 159 0.663
81 160 0.664
81 161 0.665
81 162 0.667
81 163 0.668
82 163 0.665
82 164 0.667
83 164 0.664
83 165 0.665
83 166 0.667
83 167 0.668
84 167 0.665
84 168 0.667
85 168 0.664
85 169 0.665
85 170 0.667
85 171 0.668
85 172 0.669
85 173 0.671
85 174 0.672
85 175 0.673
85 176 0.674
85 177 0.676
85 178 0.677
85 179 0.678
85 180 0.679
86 180 0.677
87 180 0.674
87 181 0.675
87 182 0.677
87 183 0.678
88 183 0.675
88 184 0.676
89 184 0.674
89 185 0.675
89 186 0.676
90 186 0.674
90 187 0.675
91 187 0.673
91 188 0.674
91 189 0.675
92 189 0.673
92 190 0.674
92 191 0.675
92 192 0.676
92 193 0.677
92 194 0.678
92 195 0.679
92 196 0.681
92 197 0.682
92 198 0.683
93 198 0.680
94 198 0.678
94 199 0.679
94 200 0.680
94 201 0.681
94 202 0.682
94 203 0.684
95 203 0.681
96 203 0.679
97 203 0.677
97 204 0.678
97 205 0.679
97 206 0.680
97 207 0.681
97 208 0.682
97 209 0.683
98 209 0.681
98 210 0.682
98 211 0.683
98 212 0.684
98 213 0.685
99 213 0.683
100 213 0.681
100 214 0.682
100 215 0.683
100 216 0.684
101 216 0.681
101 217 0.682
101 218 0.683
102 218 0.681
103 218 0.679
103 219 0.680
103 220 0.681
104 220 0.679
105 220 0.677
105 221 0.678
105 222 0.679
105 223 0.680
105 224 0.681
105 225 0.682
105 226 0.683
106 226 0.681
106 227 0.682
106 228 0.683
106 229 0.684
107 229 0.682
107 230 0.682
108 230 0.680
108 231 0.681
108 232 0.682
108 233 0.683
109 233 0.681
109 234 0.682
110 234 0.680
110 235 0.681
110 236 0.682
110 237 0.683
110 238 0.684
110 239 0.685
111 239 0.683
111 240 0.684
111 241 0.685
112 241 0.683
112 242 0.684
113 242 0.682
113 243 0.683
113 244 0.683
114 244 0.682
115 244 0.680
115 245 0.681
115 246 0.681
115 247 0.682
115 248 0.683
115 249 0.684
115 250 0.685
116 250 0.683
116 251 0.684
117 251 0.682
117 252 0.683
118 252 0.681
118 253 0.682
118 254 0.683
118 255 0.684
118 256 0.684
118 257 0.685
118 258 0.686
118 259 0.687
118 260 0.688
118 261 0.689
118 262 0.689
118 263 0.690
118 264 0.691
118 265 0.692
118 266 0.693
118 267 0.694
118 268 0.694
119 268 0.693
119 269 0.693
119 270 0.694
120 270 0.692
121 270 0.691
122 270 0.689
123 270 0.687
123 271 0.688
123 272 0.689
124 272 0.687
124 273 0.688
125 273 0.686
126 273 0.684
126 274 0.685
126 275 0.686
126 276 0.687
127 276 0.685
128 276 0.683
128 277 0.684
128 278 0.685
128 279 0.686
128 280 0.686
129 280 0.685
129 281 0.685
129 282 0.686
129 283 0.687
129 284 0.688
129 285 0.688
129 286 0.689
129 287 0.690
130 287 0.688
131 287 0.687
132 287 0.685
132 288 0.686
133 288 0.684
133 289 0.685
134 289 0.683
134 290 0.684
134 291 0.685
134 292 0.685
134 293 0.686
134 294 0.687
134 295 0.688
134 296 0.688
135 296 0.687
135 297 0.688
136 297 0.686
137 297 0.684
137 298 0.685
138 298 0.683
138 299 0.684
138 300 0.685
138 301 0.686
138 302 0.686
138 303 0.687
138 304 0.688
139 304 0.686
139 305 0.687
140 305 0.685
140 306 0.686
140 307 0.687
141 307 0.685
141 308 0.686
142 308 0.684
142 309 0.685
143 309 0.684
143 310 0.684
143 311 0.685
143 312 0.686
144 312 0.684
145 312 0.683
145 313 0.683
146 313 0.682
147 313 0.680
147 314 0.681
147 315 0.682
148 315 0.680
149 315 0.679
149 316 0.680
149 317 0.680
149 318 0.681
149 319 0.682
149 320 0.682
149 321 0.683
150 321 0.682
150 322 0.682
150 323 0.683
150 324 0.684
150 325 0.684
151 325 0.683
151 326 0.683
152 326 0.682
152 327 0.683
152 328 0.683
153 328 0.682
153 329 0.683
153 330 0.683
154 330 0.682
154 331 0.682
155 331 0.681
155 332 0.682
156 332 0.680
156 333 0.681
156 334 0.682
156 335 0.682
157 335 0.681
158 335 0.680
158 336 0.680
158 337 0.681
158 338 0.681
158 339 0.682
158 340 0.683
158 341 0.683
159 341 0.682
159 342 0.683
159 343 0.683
159 344 0.684
159 345 0.685
160 345 0.683
160 346 0.684
160 347 0.684
160 348 0.685
160 349 0.686
161 349 0.684
161 350 0.685
161 351 0.686
161 352 0.686
162 352 0.685
162 353 0.685
163 353 0.684
163 354 0.685
164 354 0.683
164 355 0.684
165 355 0.683
165 356 0.683
166 356 0.682
167 356 0.681
167 357 0.681
167 358 0.682
167 359 0.683
167 360 0.683
168 360 0.682
168 361 0.682
168 362 0.683
169 362 0.682
169 363 0.682
170 363 0.681
170 364 0.682
170 365 0.682
170 366 0.683
171 366 0.682
171 367 0.682
172 367 0.681
173 367 0.680
173 368 0.680
173 369 0.681
173 370 0.681
173 371 0.682
174 371 0.681
174 372 0.681
174 373 0.682
175 373 0.681
176 373 0.679
176 374 0.680
176 375 0.681
176 376 0.681
176 377 0.682
176 378 0.682
176 379 0.683
177 379 0.682
177 380 0.682
177 381 0.683
177 382 0.683
178 382 0.682
179 382 0.681
179 383 0.681
179 384 0.682
179 385 0.683
180 385 0.681
180 386 0.682
180 387 0.683
180 388 0.683
180 389 0.684
181 389 0.682
182 389 0.681
182 390 0.682
182 391 0.682
183 391 0.681
183 392 0.682
183 393 0.682
184 393 0.681
184 394 0.682
184 395 0.682
185 395 0.681
185 396 0.682
185 397 0.682
185 398 0.683
186 398 0.682
186 399 0.682
186 400 0.683
187 400 0.681
187 401 0.682
188 401 0.681
188 402 0.681
188 403 0.682
188 404 0.682
188 405 0.683
189 405 0.682
189 406 0.682
190 406 0.681
190 407 0.682
191 407 0.681
191 408 0.681
191 409 0.682
191 410 0.682
191 411 0.683
192 411 0.682
192 412 0.682
192 413 0.683
192 414 0.683
192 415 0.684
192 416 0.684
192 417 0.685
192 418 0.685
192 419 0.686
193 419 0.685
193 420 0.685
193 421 0.686
193 422 0.686
193 423 0.687
193 424 0.687
193 425 0.688
193 426 0.688
193 427 0.689
193 428 0.689
194 428 0.688
194 429 0.689
195 429 0.688
196 429 0.686
196 430 0.687
196 431 0.687
197 431 0.686
198 431 0.685
199 431 0.684
199 432 0.685
199 433 0.685
200 433 0.684
200 434 0.685
200 435 0.685
200 436 0.686
200 437 0.686
200 438 0.687
201 438 0.685
201 439 0.686
201 440 0.686
202 440 0.685
203 440 0.684
203 441 0.685
203 442 0.685
203 443 0.686
203 444 0.686
203 445 0.687
203 446 0.687
203 447 0.688
203 448 0.688
203 449 0.689
204 449 0.688
204 450 0.688
205 450 0.687
205 451 0.688
205 452 0.688
205 453 0.688
205 454 0.689
205 455 0.689
206 455 0.688
207 455 0.687
207 456 0.688
207 457 0.688
208 457 0.687
208 458 0.688
208 459 0.688
208 460 0.689
208 461 0.689
208 462 0.690
208 463 0.690
208 464 0.690
208 465 0.691
208 466 0.691
209 466 0.690
209 467 0.691
209 468 0.691
210 468 0.690
210 469 0.691
210 470 0.691
210 471 0.692
210 472 0.692
210 473 0.693
210 474 0.693
211 474 0.692
211 475 0.692
212 475 0.691
212 476 0.692
212 477 0.692
212 478 0.693
212 479 0.693
212 480 0.694
212 481 0.694
212 482 0.695
213 482 0.694
214 482 0.693
215 482 0.692
215 483 0.692
216 483 0.691
216 484 0.691
217 484 0.690
218 484 0.689
218 485 0.690
219 485 0.689
219 486 0.689
220 486 0.688
220 487 0.689
221 487 0.688
221 488 0.688
221 489 0.689
221 490 0.689
221 491 0.690
221 492 0.690
222 492 0.689
222 493 0.690
222 494 0.690
222 495 0.690
222 496 0.691
222 497 0.691
223 497 0.690
223 498 0.691
223 499 0.691
223 500 0.692
223 501 0.692
223 502 0.692
223 503 0.693
223 504 0.693
224 504 0.692
224 505 0.693
224 506 0.693
224 507 0.694
224 508 0.694
224 509 0.694
225 509 0.693
225 510 0.694
226 510 0.693
226 511 0.693
226 512 0.694
227 512 0.693
227 513 0.693
227 514 0.694
227 515 0.694
227 516 0.694
227 517 0.695
227 518 0.695
227 519 0.696
227 520 0.696
227 521 0.697
227 522 0.697
227 523 0.697
228 523 0.696
228 524 0.697
229 524 0.696
229 525 0.696
230 525 0.695
230 526 0.696
231 526 0.695
232 526 0.694
232 527 0.694
232 528 0.695
232 529 0.695
232 530 0.696
233 530 0.695
234 530 0.694
234 531 0.694
234 532 0.695
234 533 0.695
234 534 0.695
234 535 0.696
234 536 0.696
234 537 0.696
234 538 0.697
234 539 0.697
234 540 0.698
234 541 0.698
235 541 0.697
235 542 0.698
236 542 0.697
237 542 0.696
238 542 0.695
238 543 0.695
239 543 0.694
239 544 0.695
239 545 0.695
239 546 0.696
239 547 0.696
239 548 0.696
239 549 0.697
240 549 0.696
241 549 0.695
241 550 0.695
242 550 0.694
242 551 0.695
243 551 0.694
243 552 0.694
243 553 0.695
243 554 0.695
243 555 0.695
243 556 0.696
244 556 0.695
245 556 0.694
245 557 0.695
245 558 0.695
246 558 0.694
246 559 0.694
246 560 0.695
246 561 0.695
246 562 0.696
246 563 0.696
247 563 0.695
248 563 0.694
248 564 0.695
248 565 0.695
249 565 0.694
249 566 0.694
250 566 0.694
250 567 0.694
251 567 0.693
251 568 0.694
252 568 0.693
252 569 0.693
253 569 0.692
253 570 0.693
253 571 0.693
254 571 0.692
255 571 0.691
255 572 0.692
255 573 0.692
256 573 0.691
256 574 0.692
256 575 0.692
256 576 0.692
256 577 0.693
256 578 0.693
257 578 0.692
257 579 0.693
258 579 0.692
258 580 0.692
258 581 0.692
258 582 0.693
258 583 0.693
258 584 0.694
259 584 0.693
259 585 0.693
259 586 0.693
259 587 0.694
260 587 0.693
260 588 0.693
260 589 0.694
260 590 0.694
260 591 0.694
261 591 0.694
261 592 0.694
261 593 0.694
261 594 0.695
262 594 0.694
263 594 0.693
263 595 0.693
263 596 0.694
263 597 0.694
264 597 0.693
264 598 0.694
264 599 0.694
264 600 0.694
264 601 0.695
264 602 0.695
265 602 0.694
266 602 0.694
266 603 0.694
266 604 0.694
266 605 0.695
266 606 0.695
266 607 0.695
266 608 0.696
266 609 0.696
266 610 0.696
266 611 0.697
267 611 0.696
267 612 0.696
267 613 0.697
268 613 0.696
268 614 0.696
268 615 0.696
268 616 0.697
269 616 0.696
270 616 0.695
270 617 0.696
270 618 0.696
270 619 0.696
271 619 0.696
272 619 0.695
272 620 0.695
273 620 0.694
274 620 0.694
275 620 0.693
276 620 0.692
277 620 0.691
278 620 0.690
278 621 0.691
278 622 0.691
278 623 0.691
279 623 0.691
280 623 0.690
280 624 0.690
281 624 0.690
281 625 0.690
281 626 0.690
281 627 0.691
281 628 0.691
281 629 0.691
281 630 0.692
282 630 0.691
282 631 0.691
282 632 0.691
282 633 0.692
283 633 0.691
283 634 0.691
283 635 0.692
284 635 0.691
285 635 0.690
285 636 0.691
286 636 0.690
286 637 0.690
286 638 0.690
287 638 0.690
288 638 0.689
289 638 0.688
289 639 0.689
289 640 0.689
289 641 0.689
290 641 0.689
290 642 0.689
290 643 0.689
291 643 0.688
292 643 0.688
292 644 0.688
292 645 0.688
292 646 0.689
292 647 0.689
292 648 0.689
292 649 0.690
292 650 0.690
292 651 0.690
293 651 0.690
293 652 0.690
294 652 0.689
294 653 0.690
294 654 0.690
294 655 0.690
295 655 0.689
295 656 0.690
295 657 0.690
296 657 0.689
296 658 0.690
296 659 0.690
296 660 0.690
296 661 0.691
296 662 0.691
297 662 0.690
298 662 0.690
298 663 0.690
298 664 0.690
298 665 0.691
299 665 0.690
299 666 0.690
299 667 0.690
300 667 0.690
300 668 0.690
301 668 0.689
302 668 0.689
302 669 0.689
302 670 0.689
302 671 0.690
302 672 0.690
303 672 0.689
304 672 0.689
304 673 0.689
304 674 0.689
305 674 0.688
305 675 0.689
305 676 0.689
305 677 0.689
305 678 0.690
305 679 0.690
306 679 0.689
306 680 0.690
306 681 0.690
306 682 0.690
306 683 0.691
306 684 0.691
306 685 0.691
307 685 0.691
307 686 0.691
308 686 0.690
309 686 0.689
310 686 0.689
311 686 0.688
311 687 0.688
311 688 0.689
311 689 0.689
https://ideone.com/iwAfai
language:
Pascal (fpc 3.0.4)
created:
7 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!