خوارزمية الاعداد الاولية

[BOUSMAHA26]

السلام عليكم
اريد حل هذا التمرين
كتابة برنامج باسكال يظهر الاعداد الاولية من اجل قيمة n
(...2.3.5.7)

[BOUSMAHA26]

اين الردود

[OM-A]

سلام و عليكم و رحمة الله

تفضل اخي


program Welcome;
uses wincrt;
var s,n,i,j:integer;
begin
Writeln('donnis le valur n');
readln(n);
for i:=2 to n do
begin
s:=0;
for j:=1 to i do
if(i mod j=0) then
s:=s+1;
if(s=2)then
writeln(i);
end;

end.

بالتوفيق

[BOUSMAHA26]

المشاركة الأصلية كتبت بواسطة om-a

سلام و عليكم و رحمة الله

تفضل اخي


program welcome;
uses wincrt;
var s,n,i,j:integer;
begin
writeln('donnis le valur n');
readln(n);
for i:=2 to n do
begin
s:=0;
for j:=1 to i do
if(i mod j=0) then
s:=s+1;
if(s=2)then
writeln(i);
end;

end.

بالتوفيق

شكرا اخي على الرد
بارك الله فيك