FaceBook.pdf


Aperçu du fichier PDF facebook.pdf

Page 1 2 3




Aperçu texte


1

La résolution d’un nombre premier ainsi le PGCD entre deux nombres avec
d’autres méthodes, programmée par l’enseignante et auteure en informatique :
Madame Kherbache Faiza née Choubane.

program PremierMethode1;
uses wincrt;
var i,x:integer;
T:boolean;
begin
T:=false;
writeln('La valeur de x:');
read(x);
for i:=2 to x -1 do
if (x mod i=0) then
T:=true;
if(T=true) then
writeln(x, ' est non premier')
else
writeln(x, ' est premier');
end.
*****************************************************************
program PremierMethode2;
uses wincrt;
var i,x:integer;
T:boolean;