لغز ترفيهي

[ابوصلاح]

"احمد" و"محمد" لديهما رغبه قويه لمعرفة منزل " سامي". جميعهم يسكنون على شارع واحد، ولكن "احمد" و"محمد" لا يعرفان أين يسكن "سامي".

 

المنازل في هذا الشارع مرقمه من 1 إلى 99 . أتى " احمد" سأل "سامي " هل رقم منزلك هو رقم تربيعي؟! أجاب "سامي". فسأله أيضاً هل هو أكبر من 50 ؟! فأجابه ثانية.

 

"احمد" بعد ذلك ظن بأنه عرف منزل "سامي" فقرر الذهاب إليه. فلما ذهب هناك وجد بأنه مخطئه.

 

اعتبر بأن سامي أجاب على السؤال الثاني فقط إجابة صحيحه.

 

"محمد" هو أيضاً سأل\ "سامي" سؤالين. فسأله أولاً: هل رقم منزلك رقم تكعيبي؟! فأجاب "سامي". وسأله أيضاً هل هو أكبر من 25 ؟! فأجاب سامي.

 

فظن "محمد" بأنه عرف رقم منزل "سامي" ولما ذهب هناك وجد نفسه مخطئ المكان.

 

اعتبر كذلك بأن "سامي " أجاب فقط على السؤال الثاني إجابة صحيحه.

 

لو أخبرتك بأن رقم منزل " سامي" أقل من رقم منزل "احمد" وأقل من رقم منزل "محمد". ومجوع أرقام المنازل الثلاثة هو رقم تربيعي مضروب بـ 2 .

 

هل بإمكانك معرفة أين يسكن "احمد" و "محمد" و سامي"

[أبوبلقيس]

السلام عليكم
 
للأسف اللغة التي أعمل عليها غير اللغة
 
لمحبي  الاوتوبلاي  نضع  هذا الكود تحت زر :

d = {}
for i =1,99 do
x = i*i
if x < 99 and x > 50 then
Dialog.Message("Notice",x);
Table.Insert(d, 1, x);
end
end
for t = 50 , Math.Min(d[1],d[2]) do
for u = 1,d[1]+d[2]+Math.Min(d[1],d[2])-1 do  
 v= d[1]+d[2] + t
if v > d[1]+d[2]+50 and  u*u*2 ==v then 
Dialog.Message("Notice",v-(d[1]+d[2]));
end
end
end

لتظهر  معك النتائج  كالتالي :