DEFDBL A-Z
FOR a = 100 TO 999
FOR b = 100 TO 999
a$ = LTRIM$(STR$(a))
b$ = LTRIM$(STR$(b))
c$ = LTRIM$(STR$(a * b))
ab$ = a$ + b$
IF LEN(ab$) = 6 THEN
good = 1
FOR i = 1 TO LEN(ab$)
ix = INSTR(c$, MID$(ab$, i, 1))
IF ix = 0 THEN good = 0: EXIT FOR
c$ = LEFT$(c$, ix - 1) + MID$(c$, ix + 1)
NEXT
IF good THEN
PRINT a; b, a * b: ct = ct + 1
IF ct MOD 40 = 0 THEN
DO: LOOP UNTIL INKEY$ > ""
PRINT
END IF
END IF
END IF
NEXT
NEXT
PRINT ct
finds 312 solutions (would have been 156 if order of A and B had been specified, such as A<=B; no cases of A=B were found):
A B C
135 801 108135
140 926 129640
141 840 118440
146 938 136948
150 705 105750
150 930 139500
152 761 115672
152 824 125248
156 942 146952
158 701 110758
161 725 116725
165 951 156915
167 701 117067
176 926 162976
179 725 129775
201 510 102510
201 600 120600
201 627 126027
201 897 180297
204 516 105264
204 615 125460
210 501 105210
210 600 126000
210 870 182700
210 906 190260
210 915 192150
215 635 136525
216 864 186624
216 981 211896
221 782 172822
225 801 180225
225 810 182250
231 534 123354
231 543 125433
231 588 135828
231 750 173250
231 759 175329
240 651 156240
246 510 125460
248 881 218488
248 926 229648
251 500 125500
251 608 152608
251 860 215860
252 801 201852
255 807 205785
260 401 104260
261 486 126846
261 585 152685
269 581 156289
269 842 226498
270 810 218700
275 719 197725
276 822 226872
281 443 124483
281 650 182650
284 926 262984
296 851 251896
300 501 150300
300 510 153000
311 422 131242
315 423 133245
317 425 134725
317 461 146137
320 926 296320
321 678 217638
321 975 312975
323 410 132430
323 671 216733
323 806 260338
327 591 193257
336 951 319536
338 692 233896
341 626 213466
342 963 329346
350 401 140350
350 410 143500
350 725 253750
351 387 135837
351 414 145314
351 900 315900
351 909 319059
356 431 153436
356 926 329656
360 936 336960
366 948 346968
369 981 361989
371 470 174370
381 969 369189
383 971 371893
387 351 135837
392 863 338296
392 926 362992
395 491 193945
396 414 163944
401 260 104260
401 350 140350
410 323 132430
410 350 143500
414 351 145314
414 396 163944
420 678 284760
422 311 131242
422 581 245182
423 315 133245
425 317 134725
431 356 153436
431 707 304717
431 725 312475
431 878 378418
432 891 384912
435 870 378450
437 602 263074
443 281 124483
446 908 404968
461 317 146137
461 524 241564
464 926 429664
465 831 386415
468 612 286416
468 891 416988
470 371 174370
470 542 254740
473 800 378400
476 941 447916
482 890 428980
486 261 126846
489 582 284598
491 395 193945
491 845 414895
500 251 125500
501 210 105210
501 300 150300
510 201 102510
510 246 125460
510 300 153000
516 204 105264
524 461 241564
524 623 326452
530 635 336550
533 641 341653
533 686 365638
534 231 123354
534 591 315594
540 846 456840
542 470 254740
543 231 125433
545 899 489955
546 840 458640
549 891 489159
563 953 536539
570 834 475380
572 926 529672
581 269 156289
581 422 245182
582 489 284598
585 261 152685
585 630 368550
588 231 135828
588 951 559188
590 845 498550
591 327 193257
591 534 315594
593 662 392566
600 201 120600
600 210 126000
602 437 263074
608 251 152608
612 468 286416
615 204 125460
623 524 326452
624 780 486720
626 341 213466
627 201 126027
630 585 368550
630 855 538650
635 215 136525
635 530 336550
641 533 341653
641 650 416650
650 281 182650
650 641 416650
650 704 457600
650 875 568750
650 983 638950
651 240 156240
657 864 567648
662 593 392566
671 323 216733
678 321 217638
678 420 284760
680 926 629680
681 759 516879
686 533 365638
692 338 233896
701 158 110758
701 167 117067
704 650 457600
705 150 105750
707 431 304717
719 275 197725
720 936 673920
725 161 116725
725 179 129775
725 350 253750
725 431 312475
750 231 173250
750 906 679500
759 231 175329
759 681 516879
761 152 115672
765 963 736695
776 992 769792
780 624 486720
782 221 172822
788 926 729688
800 473 378400
800 860 688000
801 135 108135
801 225 180225
801 252 201852
806 323 260338
807 255 205785
807 984 794088
810 225 182250
810 270 218700
822 276 226872
824 152 125248
825 957 789525
831 465 386415
834 570 475380
840 141 118440
840 546 458640
842 269 226498
843 876 738468
845 491 414895
845 590 498550
846 540 456840
851 296 251896
855 630 538650
855 927 792585
858 951 815958
860 251 215860
860 800 688000
863 392 338296
864 216 186624
864 657 567648
870 210 182700
870 435 378450
875 650 568750
875 902 789250
876 843 738468
878 431 378418
881 248 218488
890 482 428980
891 432 384912
891 468 416988
891 549 489159
891 909 809919
891 945 841995
894 906 809964
896 926 829696
897 201 180297
899 545 489955
900 351 315900
902 875 789250
906 210 190260
906 750 679500
906 894 809964
908 446 404968
909 351 319059
909 891 809919
915 210 192150
926 140 129640
926 176 162976
926 248 229648
926 284 262984
926 320 296320
926 356 329656
926 392 362992
926 464 429664
926 572 529672
926 680 629680
926 788 729688
926 896 829696
927 855 792585
930 150 139500
936 360 336960
936 720 673920
938 146 136948
941 476 447916
942 156 146952
945 891 841995
948 366 346968
951 165 156915
951 336 319536
951 588 559188
951 858 815958
953 563 536539
953 986 939658
957 825 789525
963 342 329346
963 765 736695
969 381 369189
971 383 371893
975 321 312975
981 216 211896
981 369 361989
983 650 638950
984 807 794088
986 953 939658
992 776 769792
|
|
Posted by Charlie
on 2013-11-24 13:21:52 |
computer solution
