العودة   منتديات داماس > انظمة التشغيل والاوفيس > ورشة عمل اسطوانات تجميعات البرامج وشروحات ودروس برنامج الاوتوبلاي AutoPlay Media Studio

إضافة رد
20-01-2018, 10:51 AM
عبد الهادي بهاب
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 723
تلقى دعوات الى: 28 موضوع
إعجاب: 178
تلقى 440 إعجاب على 247 مشاركة
 
السلام عليكم

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

https://www.damasgate.com/vb/t152498/

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

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

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

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

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

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

لغز رياضي3

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




21-01-2018, 03:10 AM
samirkhel
عضو محترف
رقم العضوية: 837001
تاريخ التسجيل: Sep 2016
المشاركات: 531
تلقى دعوات الى: 2 موضوع
إعجاب: 150
تلقى 158 إعجاب على 106 مشاركة
 
السلام عليكم
لغز شيق يمكن عدم الاخد في الاعتبار العددين 2 و 3 لأن جدائهما يساوي 6

21-01-2018, 03:21 AM
samirkhel
عضو محترف
رقم العضوية: 837001
تاريخ التسجيل: Sep 2016
المشاركات: 531
تلقى دعوات الى: 2 موضوع
إعجاب: 150
تلقى 158 إعجاب على 106 مشاركة
 
نستعمل الدالة
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
المشاركات: 531
تلقى دعوات الى: 2 موضوع
إعجاب: 150
تلقى 158 إعجاب على 106 مشاركة
 
السلام عليكم
انتظر اجابتك

21-01-2018, 10:06 PM
عبد الهادي بهاب
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 723
تلقى دعوات الى: 28 موضوع
إعجاب: 178
تلقى 440 إعجاب على 247 مشاركة
 
انا احاول

21-01-2018, 10:11 PM
عبد الهادي بهاب
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 723
تلقى دعوات الى: 28 موضوع
إعجاب: 178
تلقى 440 إعجاب على 247 مشاركة
 
المشاركة الأصلية كتبت بواسطة 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
المشاركات: 723
تلقى دعوات الى: 28 موضوع
إعجاب: 178
تلقى 440 إعجاب على 247 مشاركة
 
المشاركة الأصلية كتبت بواسطة samirkhel 
نستعمل الدالة
Math.Mod(i, 3)
end[/CODE]

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

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

جرب

21-01-2018, 11:02 PM
samirkhel
عضو محترف
رقم العضوية: 837001
تاريخ التسجيل: Sep 2016
المشاركات: 531
تلقى دعوات الى: 2 موضوع
إعجاب: 150
تلقى 158 إعجاب على 106 مشاركة
 
المشاركة الأصلية كتبت بواسطة عبد الهادي بهاب 
تفضل

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



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.
جميع ما يُطرح من مواضيع ومشاركات تعبر عن رأي كاتبها ولا تعبر عن رأي مالك الموقع أو الإدارة بأي حال من الأحوال.