[خليل صلاح]

المشاركة الأصلية كتبت بواسطة زكريا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.