أستغفر الله العظيم ... سبحان الله وبحمده



العودة   منتديات داماس > اسطوانة الويندوز الخاصة > ورشة عمل اسطوانات تجميعات البرامج وشروحات ودروس برنامج الاوتوبلاي AutoPlay Media Studio


مواضيع مميزة  


آخر عشرة مواضيع المواضيع النشطة


20-01-2018, 10:51 AM
عبد الهادي بهاب غير متصل
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 651
إعجاب: 133
تلقى 342 إعجاب على 194 مشاركة
تلقى دعوات الى: 22 موضوع
    #1  

لغز رياضي3


رياضي3

سبق و طرح الموضوع من قبل عمر

لغز رياضي

---------------------
ما هو العدد الذي اذا قسمته على اثنين يبقى واحد واذا قسمته على ثلاثة يبقى واحد واذا قسمته على اربعة يبقى واحد واذا قسمته على خمسة يبقى واحد واذا قسمته على ستة ايضا يبقى واحد وحين تقسمه على سبعة لا يتبقى شئ؟؟؟؟؟؟؟

اظن ان اللغز بسيط وانا اريد طريقة حل مع الحل يعني مو بس تخمن رقم ويكون صحيح اريد اعرف كيف استدللت عليه..

مع تمنياتي للجميع بان ما يحلون اللغز

هههههههههههههههههههههههههه

-------------------------------------------------

الحل بالاوتوبلاي ....كل الحلول الاقل من المليون

رياضي3

------------------------
السؤال ماهو الكود المستعمل ؟



21-01-2018, 03:10 AM
samirkhel متصل
عضو مميز
رقم العضوية: 837001
تاريخ التسجيل: Sep 2016
المشاركات: 364
إعجاب: 77
تلقى 102 إعجاب على 71 مشاركة
تلقى دعوات الى: 1 موضوع
    #2  

لغز شيق يمكن عدم الاخد في الاعتبار العددين 2 و 3 لأن جدائهما يساوي 6


21-01-2018, 03:21 AM
samirkhel متصل
عضو مميز
رقم العضوية: 837001
تاريخ التسجيل: Sep 2016
المشاركات: 364
إعجاب: 77
تلقى 102 إعجاب على 71 مشاركة
تلقى دعوات الى: 1 موضوع
    #3  
نستعمل الدالة
Math.Mod(i, 3)
Math.Mod(i, 4)
Math.Mod(i, 5)
Math.Mod(i, 6)
اللتي تعطينا باقي القسمة و نفرض تساوي 1
باقي القسمة صفر
Math.Mod(i, 7)
نستعمل الدالة for و يستحسن ان يكون الرقم اللذي نبدأ به مضاعف السبعة
و كل مرة نزيد سبعة للخطوة ليبقي مضاعف سبعة
فقط كيفية اخراج الناتج الكلي ارني الطريقة لو تفضلت
و هذا الكود
for i=7,1234,7   do


if( Math.Mod(i, 4)==1 and Math.Mod(i, 5)==1 and Math.Mod(i, 6)==1  and Math.Mod(i, 7)==0 )then
Dialog.Message("Notice", i, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);


end


end

21-01-2018, 05:55 PM
samirkhel متصل
عضو مميز
رقم العضوية: 837001
تاريخ التسجيل: Sep 2016
المشاركات: 364
إعجاب: 77
تلقى 102 إعجاب على 71 مشاركة
تلقى دعوات الى: 1 موضوع
    #4  

انتظر اجابتك

21-01-2018, 10:06 PM
عبد الهادي بهاب غير متصل
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 651
إعجاب: 133
تلقى 342 إعجاب على 194 مشاركة
تلقى دعوات الى: 22 موضوع
    #5  
انا احاول

21-01-2018, 10:11 PM
عبد الهادي بهاب غير متصل
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 651
إعجاب: 133
تلقى 342 إعجاب على 194 مشاركة
تلقى دعوات الى: 22 موضوع
    #6  
المشاركة الأصلية كتبت بواسطة samirkhel 

انتظر اجابتك
تفضل

sol="";

for 
i=7,100000,7   do


if( 
Math.Mod(i4)==and Math.Mod(i5)==and Math.Mod(i6)==1  and Math.Mod(i7)==)then
sol 
sol .."***"..;
end end

Dialog
.Message("Notice"solMB_OKMB_ICONINFORMATIONMB_DEFBUTTON1); 

ما شاء الله حل رائع جدا

21-01-2018, 10:15 PM
عبد الهادي بهاب غير متصل
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 651
إعجاب: 133
تلقى 342 إعجاب على 194 مشاركة
تلقى دعوات الى: 22 موضوع
    #7  
المشاركة الأصلية كتبت بواسطة samirkhel 
نستعمل الدالة
Math.Mod(i, 3)
end[/CODE]

بكفي ان تستعمل i%3==1

يعني باقي قسمة i على 3 هو 1

جرب

21-01-2018, 11:02 PM
samirkhel متصل
عضو مميز
رقم العضوية: 837001
تاريخ التسجيل: Sep 2016
المشاركات: 364
إعجاب: 77
تلقى 102 إعجاب على 71 مشاركة
تلقى دعوات الى: 1 موضوع
    #8  
المشاركة الأصلية كتبت بواسطة عبد الهادي بهاب 
تفضل

sol="";

for 
i=7,100000,7   do


if( 
Math.Mod(i4)==and Math.Mod(i5)==and Math.Mod(i6)==1  and Math.Mod(i7)==)then
sol 
sol .."***"..;
end end

Dialog
.Message("Notice"solMB_OKMB_ICONINFORMATIONMB_DEFBUTTON1); 

ما شاء الله حل رائع جدا
بارك الله فيك

 


لغز رياضي3

English

Powered by vBulletin® Version
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
The owner and operator of the site is not responsible for the availability of, or any content provided.
Topics that are written in the site reflect the opinion of the author.
جميع ما يُطرح من مواضيع ومشاركات تعبر عن رأي كاتبها ولا تعبر عن رأي مالك الموقع أو الإدارة بأي حال من الأحوال.