M1RAI

facteurs_premiers

Feb 25th, 2020
121
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program test_facteurs_premiers;
  2. uses wincrt;
  3. var
  4. N,i:integer;
  5. puiss:integer;
  6. v:Boolean;
  7.  
  8. begin
  9.     write('N=');
  10.     readln(N);
  11.     for i:= 2 to N do
  12.     begin
  13.         puiss:=0;
  14.         while ( n mod i = 0 ) do
  15.         begin
  16.                 puiss:=puiss+1;
  17.                 n:= n div i;
  18.         end;
  19.         writeln(i,'^' , puiss);
  20.         if n div i = 0 then break;
  21.     end;
  22. end.
RAW Paste Data