Технический форум - Составить программу разложения

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Составить программу разложения (http://www.tehnari.ru/f41/t91472/)

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

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

Цитата:

Сообщение от SkyNexx (Сообщение 956446)

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

Код:

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.