Program mnoj;
uses crt;
var i, n: integer;
begin
 write('Введите число: ');
 read(n);
 while n mod 2=0 do
 begin {n делится на два}
 write(2,' ');
 n:=n div 2
 end;
 i:=3;
 while i<=n do
 if n mod i=0
 then {n делится на i}
 begin
 write(i,' ');
 n:=n div i
 end
 else i:=i+2; {переход к следующему нечетному делителю}
readkey
end.


2012-06-25 • Просмотров [ 9990 ]