تمرين رقم 1: برنامج لحساب مجموع قواسم عدد بلغة الباسكال

التفاصيل

الزيارات: 6552

اكتب برنامج لحساب مجموع قواسم عدد باستخدام لغة الباسكال ...

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

• التالي >