لخبراء الباسكال

[nd.youcef]

[Ecrire un programme qui permet d'introduire une série de nombres entiers puis de savoir : les nombres pairs et
impairs , les nombres parfaits ( si la somme de diviseurs d'un nombre est égale le double de ce nombre donc ce dernier est parfait), les nombres premiers, le maximum, et le minimum de ces nombres ; puis faire le triage ( croissant)
De ces nombres .( on peut utiliser six fonctions ou six procédure ou mixte ).
مع العلم انا اريد كتابته على الباسكال تيربو
ارجو افادتي بهذا البرنامج واجركم على الله

[Saladine]

سأعطيك جميع les fonction وانت قم بالباقي:
الاولى pair و impair

Program SALADINE1;
Var  I:ineger;
Begin
 
Write('entrez un nombre I');
Read(I);
If (I mod 2=0) Then
Write('ce Nombre I pair')
Else
Write('ce nombre I impaire');
 
End.

الثانية:
الثانية العدد المثالي parfaits

program SALADINE2;
var w,x,y,z:integer;
begin
read(z);
for w:=1 to z do
begin
y:=0;
for x:=1 to (w div 2) do
begin
if w mod x=0 then
begin
y:=y+x;
if w=y then
write(w);
end
end
end
end.

الثالثة: العدد الاولي premier

program SALADINE3;
var x,y,z:integer;
begin
write('Donnez un nombre naturel');
read(x);
y:=0;
for z:=1 to x do
if x mod z = 0 then 
y:=y+1;
if y=2 then 
write('le nombre est premier') 
else
write('le nombre n'est pas premier');
end.

الرابعة max

program Saladine4;
const n 100
type tab=array[1..n] of integer;
var 
i, max:integer;
begin
max:= t[ 1 ] ;
for i:=2 to n do
begin
read(t);
 if t > max then
max:= t; 
end
writeln(" lemaximun est", max );
.End

الخامسة min

program Saladine5;
const n 100
type tab=array[1..n] of integer;
var 
i, min:integer;
begin
max:= t[ 1 ] ;
for i:=2 to n do
begin
read(t);
 if t < min then
min:= t; 
end
writeln(" le minimun est", min);
End.