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

التفاصيل

الزيارات: 9376

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

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.

• < السابق
• التالي >