شوف اللغز
http://www.egyedu.com/vb/showthread.php?t=2104




طب دا نحله ازاي
نرجع كل شئ لاصله ونوحد المقياس حنخليه كله قروش
الشيك فيه x من الجنيهات
وكمان y من القروش
المبلغ في الشيك يكون y+100*x بالقروش ويكون الضعف 2*(y+100*x)
البنك اعطى ايه
بدل القروش جنيهات يعني y من الجنيهات وكمان بدل الجنيهات قروش يعنيx من القروش
يبقى المبلغ من البنك يكون x+100*y بالقروش
صرف منهم 5 قروش
الباقي x+100*y-5
يبقى نعمل مخزن ل x و مخزن ل y بامر dim
ونجرب اعداد من واحد الى اي رقم وليكن 1000 للقروش x مرة وللجنيهات y مرة ب for next
ولو تحقق الشر الباقي = الضعف ب if then
يظهر رسالة ب x و y
وهي دي الاكواد
Dim x As Integer
Dim y As Integer
For x = 1 To 1000
For y = 1 To 1000
If x + 100 * y - 5 = 2 * (y + 100 * x) Then
MsgBox( x)
MsgBox( y)
End If
Next
Next