السلام عليكم ورحمة الله وبركاته.أهلا وسهلا بك زائرنا الكريم،
منتديات فيزياء لكل الأجيال ترحب بكم عند تسجيلكم المرجوا منكم التوجه الى ايمايلكم لتفعيل حسابكم بالضغط على الرابط الموجود بالرسالة التي سيتم ارسالها اليكم من المنتدى إذا رغبت بالمشاركة في المنتدى، أما إذا رغبت بقراءة المواضيع والإطلاع فتفضل بزيارة القسم الذي ترغب أدناه.


انضم إلى المنتدى ، فالأمر سريع وسهل

السلام عليكم ورحمة الله وبركاته.أهلا وسهلا بك زائرنا الكريم،
منتديات فيزياء لكل الأجيال ترحب بكم عند تسجيلكم المرجوا منكم التوجه الى ايمايلكم لتفعيل حسابكم بالضغط على الرابط الموجود بالرسالة التي سيتم ارسالها اليكم من المنتدى إذا رغبت بالمشاركة في المنتدى، أما إذا رغبت بقراءة المواضيع والإطلاع فتفضل بزيارة القسم الذي ترغب أدناه.
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

un programmz qui permet de tester si 10 nombres sont parfaits

اذهب الى الأسفل

un programmz qui permet de tester si 10 nombres sont parfaits Empty un programmz qui permet de tester si 10 nombres sont parfaits

مُساهمة من طرف ILYAS الإثنين يوليو 04, 2011 12:30 am

! un programmz qui permet de tester si 10 nombres sont parfaits
program nombre parfait
implicit none
integer::nb(10),div,somme,i
real:: reste
c ----------------partie saisie-----------------------------
do i=1,10
write(*,*)'donner la valeur n',i
read(*,*)nb(10)
end do
c ----------------parrtie traitement------------------------

div=1 ; somme=0

do while(nb(10).gt.somme)
reste= mod (nb(10),div)
if (reste.eq.0) then
somme=somme+div

end if
div=div+1
end do
c -------------------partie affichage--------------------------
if (nb(10).eq.somme) then
do i=1,10
write(*,*)'nb est un nombre parfait',i
else
write (*,*)'nb n-est pas un nombre parfait',i
end do

end if

end
ILYAS
ILYAS
مدير المنتدى
مدير المنتدى

الاوسمة : un programmz qui permet de tester si 10 nombres sont parfaits Medal_003
عدد المساهمات : 406
نقاط : 1190
تاريخ التسجيل : 22/10/2010
الموقع : https://physicsgeneration.superforum.fr

https://physicsgeneration.superforum.fr

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

- مواضيع مماثلة

 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى