IBAN: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 2,303:
c = c*100+ch-55
} else c=-1: exit
c = c mod 97▼
}
}
=Iban0$ + If$(c=1 ->" (Valid)", " (Invalid)")
Line 2,316:
Print IbanCheck$("MK11 2222 3333 4444 555")
</lang>
=={{header|Mathematica}} / {{header|Wolfram Language}}==
| |||