السلام عليكم
اذا ممكن احد يعطني الكود الخاص بالمضاعف المشترك الأصغر
يعني مثلا
لدي عددين
6
5
اصغرمضاعف بينهم هو 30
اذا ممكن احد يعطني الكود الخاص بالمضاعف المشترك الأصغر
يعني مثلا
لدي عددين
6
5
اصغرمضاعف بينهم هو 30
x=6
y=5
i =1
repeat
i = i + 1
until Math.Mod(i, x)==0 and Math.Mod(i, y)==0
Dialog.Message("Notice", i);
x=6
y=5
i =1
repeat
i = i + 1
until Math.Mod(i, x)==0 and Math.Mod(i, y)==0
Dialog.Message("Notice", i);
x=35
y=21
i =1
repeat
i=i+1;
until x% i ==0 and y%i == 0
Dialog.Message("Notice", i);
x=6
y=5
i =1
repeat
i = i + 1
until Math.Mod(i, x)==0 and Math.Mod(i, y)==0
Dialog.Message("Notice", i);
x=84
y=36
i =Math.Max(x,y);
g=1;
gh= 1;
repeat
i=i-1;
until x% i ==0 and y%i == 0
repeat
g=g+1;
until x% g ==0 and y%g == 0
repeat
gh=gh+1;
until gh%x ==0 and gh%y == 0
Dialog.Message("x=84 ** y=36","pgdc = ".. i .."\r\n" .. "ppdc ="..g .. "\r\n".."ppmc = "..gh.."\r\n".."pgmc = "..x*y);
تعليق