Составить программу разложения данного натурального числа на простые множители. Например, 200 = 2^3 * 5^2. (программа Паскаль)

Question

Составить программу разложения данного натурального числа на простые множители. Например, 200 = 2^3 * 5^2.

Answer 1

uses crt;
var n,i,k:integer;
begin
repeat
write('Введите натуральное число >0 n=');
read(n);
until n>0;
if n=1 then write('Простых множителей нет')
else
 begin
  write(n,'=');
  i:=2;
  while i<=n do
   begin
    k:=0;
    while n mod i=0 do
     begin
      k:=k+1;
      n:=n div i;
     end;
    if i<n then
     begin
      if k=1 then write(i,'*')
      else if k>1 then write(i,'^',k,'*');
     end
    else
     begin
      if k=1 then write(i)
      else if k>1 then write(i,'^',k);
     end;
    i:=i+1;
   end;
 end;
end.