Составить программу разложения

[SkyNexx]

Составить программу разложения

составить программу которая будет выполнять разложение на простые множители заданное число Н
Помогите пожалуйста)Паскаль-Турбо)11 класс)

 

[Vladimir_S]

составить программу которая будет выполнять разложение на простые множители заданное число Н
Помогите пожалуйста)Паскаль-Турбо)11 класс)

Например, так:

Var
 H,m,i:LongInt;
Begin
 Write('H = ');
 Readln(H);
 Writeln;
 Write(H,' = 1');
 Repeat
  m:=0;
  i:=1;
  repeat
   Inc(i);
  until ((H mod i)=0) or (i>H);
  If (H mod i)=0 then
   begin
    m:=i;
    write('*',m);
    H:=(H div m);
   end;
 Until m=0;
 Readln
End.