Question

Mă poate ajuta cineva cu acest program în pascal vă rog?​

Answer 1

Răspuns:

program divizoriProprii;

var

   a, n : integer;

   

begin

   writeln ('n = ');

   read (n);

   

   { parcurgerea si afisarea divizorilor proprii}

   

   for a := ( n div 2 ) downto 2 do

   begin

       if( n mod a = 0) then

           write ( a:2 );

   end;

end.

Explicație: