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

• 

التفاصيل

الزيارات: 6092

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

 

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.