برنامج لايجاد المضاعف المشترك الأصغر لعددين بلغة الباسكال

 

اكتب برنامج لايجاد المضاعف المشترك الأصغر لعددين باستخدام لغة الباسكال...




program sum;
var
   x,y,i,k:integer;
begin
   write('x=');
   readln(x);
   write('y=');
   readln(y);
for i:=1 to x*y  do
  if (i mod x = 0) and (i mod y = 0) then
   begin
     k:=i;
     break;
end;
writeln('k=',k);
end.


 

Share |

معلومات إضافية