[Mohamad Anan]

(22-09-20, 04:20 AM)اسامه الهرماوي كتب : السلام عليكم...
هذه الأسئلة حاولت حلها ولكن لم أفلح فهل من مساعدة؟؟

السؤال الأول: اكتب كود لإيجاد جميع الأعداد الزائدة الواقعة بين 1 إلى 30؟
-الأعداد الزائدة هي: 12, 18, 20, 24, 30.

و عليكم السلام و رحمة الله و بركاته

جواب السؤال الأول

كود :

       REM لحفظ مجموع قواسم العدد
       Dim Total As Integer
       REM اختبار الأرقام من 1 ال ى 30
       For Number As Integer = 1 To 30
           REM ايجاد قواسم العدد من دونه
           For Num As Integer = 1 To Number - 1
               REM التأكد ان باقي القسمة = 0
               If Number Mod Num = 0 Then
                   REM جمع القواسم
                   Total = Total + Num
               End If
           Next
           REM العدد الزائد أصغر من مجموع قواسمه
           If Number < Total Then
               MessageBox.Show(Number.ToString)
           End If
           Total = 0
       Next