ملتقى طلاب الاعلام الالي لحل تمارين Algorithmes et programmation en Pascal

[Arzt]

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

Selon Euclide
PGCD (a,b) = PGCD(a,b-a) si b>a
PGCD (a,b) = PGCD (a-b,b) si a>b
PGCD (a,b) = a (ou b) si a=b

program pgcd;
uses wincrt;

var
a,b:integer;

begin

repeat
readln(a);
until a>=0;


repeat
readln(b);
until b>=0;



while a<>b do
begin
  if a>b then
     a:=a-b
  else if a<b then
       b:=b-a;
end;



writeln(a);
end.

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

program premier;
uses wincrt;

var
i,d:integer;


begin


for i:=2 to 100 do
begin

d:=2;

while ((i mod d <>0) and (d <= i div 2)) do
begin
d:=d+1;
end;


if d> i div 2 then
writeln(i);

end; 

end.

مشكور أخي لكن أريد ال Algorithme أيضا