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

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

 



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.

 

 

 

 

 

Share |

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