Question

Pascal, proceduri
Vă rog mult

Answer 1

program DivizoriComuni;

type Natural=0..MaxInt;

var a,b,c: Natural;

procedure DivizComuni(a,b,c:Natural);

var i: Natural;

begin

 i:=1;

 while (i*i<=a) do

   begin

     if (a mod i =0) then

       begin

          if (b mod i=0) and(c mod i=0) then write(i, '  ');

          if (b mod (a div i)=0)and(c mod(a div i)=0)

             then write(a div i, '  ');

       end;

     i:=i+1;

  end;

  writeln;

end;

begin

 write(' introdu trei numere naturale:  '); read(a,b,c);

 writeln('Divizorii lor comuni sunt: ');

 DivizComuni(a,b,c);

end.