35 lines
591 B
Plaintext
35 lines
591 B
Plaintext
Dim DT(9, 9)
|
|
|
|
For y = 0 To 9
|
|
For x = 0 To 9
|
|
Read val
|
|
DT(x, y) = val
|
|
Next x
|
|
Next y
|
|
|
|
Input check$
|
|
While (check$ <> "")
|
|
D = 0
|
|
For i = 1 To Len(check$)
|
|
D = DT(Val(Mid$(check$, i, 1)), D)
|
|
Next i
|
|
If D Then
|
|
Print "Invalid"
|
|
Else
|
|
Print "Valid"
|
|
End If
|
|
Input check$
|
|
Wend
|
|
End
|
|
|
|
DATA 0,3,1,7,5,9,8,6,4,2
|
|
DATA 7,0,9,2,1,5,4,8,6,3
|
|
DATA 4,2,0,6,8,7,1,3,5,9
|
|
DATA 1,7,5,0,9,8,3,4,2,6
|
|
DATA 6,1,2,3,0,4,5,9,7,8
|
|
DATA 3,6,7,4,2,0,9,5,8,1
|
|
DATA 5,8,6,9,7,2,0,1,3,4
|
|
DATA 8,9,4,5,3,6,2,0,1,7
|
|
DATA 9,4,3,8,6,1,7,2,0,5
|
|
DATA 2,5,8,1,4,3,6,7,9,0
|