SHARE
TWEET

Untitled

a guest Feb 2nd, 2013 16 Never
  1. {Escribir un algoritmo que descomponga un numero en sus factores primos}
  2.  
  3. program ocho;
  4.  
  5. uses crt;
  6.  
  7. var
  8.         num,j,i,k:integer;
  9.  
  10. begin
  11.  
  12.         writeln('Este programa descompone un numero en sus factores primos');
  13.         read(num);
  14.         k:=0;
  15.                
  16.         for i:=1 to num do
  17.                 begin
  18.                 if ((num mod i) = 0) then
  19.                          begin
  20.                          for j:=1 to i do
  21.                                    begin
  22.                                    if (i mod j = 0) then
  23.                                                   begin
  24.                                           k:=k+1;
  25.                                                   end;         
  26.                            end;
  27.                        
  28.                            if (k=2) then
  29.                                                   begin
  30.                                                   writeln(i);
  31.                                                   end; 
  32.                                    k:=0;
  33.                          end;                      
  34.                
  35.                 end;
  36.                        
  37.        
  38. end.
RAW Paste Data
Top