This week only. Pastebin PRO Accounts Christmas Special! Don't miss out!Want more features on Pastebin? Sign Up, it's FREE!
Guest

Untitled

By: a guest on Feb 2nd, 2013  |  syntax: None  |  size: 0.59 KB  |  views: 16  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  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.
clone this paste RAW Paste Data