👤

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

Mă Poate Ajuta Cineva Cu Acest Program În Pascal Vă Rog class=

Răspuns :

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: