w1, a 2-letter word is ……an Italian river.
w2, a 4-letter word is .…an English noun.
w3, a 3-letter word is ……another English noun.
w4, a 6-letter word is .……a name of European country.
Solve the alphametic:
W2*W3=W4
knowing that:
w4 is a concatenation of w1 and w2
while
"w2 and w3" was a name of a long-running TV series in Canada.
w4 w2 w3 w3 Note:
poland land possibilities it has to fit "Land and Sea"
231840 1840 126 lp? so w3 has to fit sea
241875 1875 129 lp?
271350 1350 201 pdl
281750 1750 161 l?l
291450 1450 201 pdl
301875 1875 161 l?l
312480 2480 126 ol?
341250 1250 273 a?p
361250 1250 289 a??
361875 1875 193 l?p
371250 1250 297 a?o
371480 1480 251 ??l
371850 1850 201 ?dl
372960 2960 126 ?ln
381250 1250 305 pdn
381520 1520 251 nal
391250 1250 313 plp
391560 1560 251 ?al
391625 1625 241 n?l
391875 1875 209 ??o
403125 3125 129 an?
413280 3280 126 oa?
421680 1680 251 o?l
421750 1750 241 opl
421875 1875 225 ood
423750 3750 113 ??l
431250 1250 345 opn
431720 1720 251 n?l
432150 2150 201 lda
461250 1250 369 ?o?
462875 2875 161 ?o?
471250 1250 377 ?oo
472350 2350 201 ld?
481250 1250 385 ?on
481920 1920 251 n?l
483750 3750 129 ???
491250 1250 393 ?o?
491750 1750 281 ??l
524160 4160 126 aon
542160 2160 251 lpa
592360 2360 251 lp?
594720 4720 126 ?n?
601875 1875 321 ??l
603125 3125 193 a?l
623875 3875 161 ?p?
631250 1250 505 ndn
631750 1750 361 opl
631875 1875 337 oon
641250 1250 513 nl?
641280 1280 501 ?dl
645120 5120 126 anp
671250 1250 537 n?o
671340 1340 501 ?dl
681250 1250 545 n?n
684250 4250 161 ?p?
691250 1250 553 nn?
691380 1380 501 ?dl
691725 1725 401 ??l
691840 1840 376 ??p
691875 1875 369 ?po
692875 2875 241 l??
693450 3450 201 ?d?
693750 3750 185 ??n
703125 3125 225 nnd
712840 2840 251 l?o
715680 5680 126 o?a
731250 1250 585 n?n
731460 1460 501 ?dl
731825 1825 401 ??l
735840 5840 126 ???
741250 1250 593 n??
741850 1850 401 odl
742960 2960 251 l??
745920 5920 126 ?n?
761250 1250 609 od?
761520 1520 501 adl
781250 1250 625 ?an
781560 1560 501 adl
781625 1625 481 ?ol
781950 1950 401 ?dl
783120 3120 251 n?a
783250 3250 241 a??
786240 6240 126 ?al
791250 1250 633 ???
791264 1264 626 nan
791580 1580 501 adl
793160 3160 251 ??a Here it is: ??a standing for Sea
796320 6320 126 ?nl
803125 3125 257 nd?
813240 3240 251 a?o
813750 3750 217 ?oa
816750 6750 121 o?o
821640 1640 501 ?dl
831250 1250 665 ??n
834150 4150 201 ?da
841250 1250 673 ???
841750 1750 481 opl
843750 3750 225 ??n
846720 6720 126 ?nl
851360 1360 626 n?n
861250 1250 689 op?
861720 1720 501 ?dl
862150 2150 401 ?da
871250 1250 697 ??o
871392 1392 626 ?d?
871450 1450 601 ?dl
873625 3625 241 n??
874350 4350 201 ?d?
891250 1250 713 ?l?
893560 3560 251 ?a?
897120 7120 126 an?
901875 1875 481 ?al
903125 3125 289 n?p
913250 3250 281 a?o
913640 3640 251 ??o
914375 4375 209 ??p
917280 7280 126 oa?
918750 8750 105 odn
921840 1840 501 ?dl
923680 3680 251 o??
927360 7360 126 ?on
931240 1240 751 ??l
931250 1250 745 ??n
931860 1860 501 ?dl
931875 1875 497 ?pn
932480 2480 376 o??
934650 4650 201 ?d?
941250 1250 753 ?n?
942350 2350 401 od?
943760 3760 251 ???
947520 7520 126 ?n?
961250 1250 769 ?op
961280 1280 751 ??l
961875 1875 513 dl?
963750 3750 257 ?na
963840 3840 251 ???
971250 1250 777 ooo
974850 4850 201 ?d?
981250 1250 785 ?on
981750 1750 561 n?l
982450 2450 401 ad?
984375 4375 225 ??d
986125 6125 161 ala
w1 through w4 are Po, land, sea, Poland respectively
DefDbl A-Z
Dim crlf$
Private Sub Form_Load()
Form1.Visible = True
Text1.Text = ""
crlf = Chr$(13) + Chr$(10)
For p = 1 To 9
For o = 0 To 9
For l = 1 To 9
For a = 1 To 9
For n = 0 To 9
For d = 0 To 9
c$ = LTrim(Str(p)) + LTrim(Str(o)) + LTrim(Str(l)) + LTrim(Str(a)) + LTrim(Str(n)) + LTrim(Str(d))
good = 1
For i = 2 To Len(c)
If InStr(c, Mid(c, i, 1)) < i Then good = 0: Exit For
Next
If good Then
poland = Val(c)
land = Val(Mid(c, 3))
If poland Mod land = 0 Then
w3 = poland / land
If w3 >= 100 And w3 < 1000 Then
Text1.Text = Text1.Text & poland & Str(land) & Str(w3) & " "
noun$ = LTrim(Str(w3))
For i = 1 To Len(noun)
ix = InStr(c, Mid(noun, i, 1))
If ix = 0 Then
Text1.Text = Text1.Text & "?"
Else
Text1.Text = Text1.Text & Mid("poland", ix, 1)
End If
Next
Text1.Text = Text1.Text & crlf
End If
End If
End If
DoEvents
Next
Next
Next
Next
Next
Next
Text1.Text = Text1.Text & crlf & " done"
End Sub
|
|
Posted by Charlie
on 2017-06-27 12:23:17 |
computer aided solution
