منتديات الجلفة لكل الجزائريين و العرب - عرض مشاركة واحدة - رياضيات وإعلام آلي بسكرة
عرض مشاركة واحدة
قديم 2012-04-11, 15:41   رقم المشاركة : 29
معلومات العضو
زكريا99
عضو مجتهـد
 
إحصائية العضو










افتراضي

اقتباس:
المشاركة الأصلية كتبت بواسطة خليل صلاح مشاهدة المشاركة
ساكتب الalgorithme للبرنامج و انت حولها للغة البرمجة التي تريد.
كود:

algorithme premier;
var t:tableau[1..100,1..100] de reél;
x,j,s,k,n,m,i:entier;

début
lire (n,m);

pour i:=1 à n faire
pour j:=1 à n faire lire(t[i,j]);

s:=0;
pour i:=1 à n faire
pour j:=1 à n faire{ 
x:=0;
k:=2;
tant que (k<=t[i,j]div2) et (x=0 ) faire
{
si(t[i,j] mod k=0) alors x:=1;
k:=k+1;
}
si x=1 alors s:=s+1;
}

ecrire(s);

fin.
ممكن ألغوريتم أخر منفضلك لانو هذامحبش يمشيلي
و شكرااااااااااااااااااااااااااااا









رد مع اقتباس