رياضيات وإعلام آلي بسكرة

[زكريا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.

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

[زكريا99]

المشاركة الأصلية كتبت بواسطة زكريا99

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

أين أنت!!!!!!!!!!!!!!!!!!!!!:confu sed:

[خليل صلاح]

المشاركة الأصلية كتبت بواسطة زكريا99

أين أنت!!!!!!!!!!!!!!!!!!!!!:confu sed:

شوف هذا....

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 à m faire lire(t[i,j]);

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

ecrire(s);

fin.

[زكريا99]

المشاركة الأصلية كتبت بواسطة خليل صلاح

شوف هذا....

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 à m faire lire(t[i,j]);

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

ecrire(s);

fin.

راهوا كيف لوخر
شكراااااااااااااااا لك