Цитата:
Сообщение от SkyNexx
составить программу которая будет выполнять разложение на простые множители заданное число Н
Помогите пожалуйста)Паскаль-Турбо)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.