问题 A: 分解质因数(Primefac) [1*]

原创 2015年07月10日 09:47:33

题目描述

分解质因数Prime factor(Primefac)
【问题】求正整数n的质因子,输出如下形式: 100=2*2*5*5
【输入】一个<=100000的正整数n
【输出】按题目要求的形式输出n的质因子

输入

输出

样例输入

样例输出

Const
 max=32000;
var a:array[2..max]of boolean;
    p:array[1..3500]of word;
    i,j,m:word;l:longint;
begin
for i:=2 to max do
 a[i]:=true;j:=0;
for i:=2 to trunc(sqrt(max)) do
 if a[i] then
  begin
   m:=i;
    repeat
     inc(m,i);
      if m<=max then a[m]:=false
    until m>max
   end;
  for i:=2 to max do
 if a[i] then
begin
 inc(j);p[j]:=i
end;
//for i:=2 to j do write(p[i]:8)
readln(l);
write(l,'=');
 if l>0 then
  repeat
   for i:=1 to j do if l mod p[i]=0 then
    begin l:=l div p[i];
     write(p[i]);if l>1 then
      write('*');
     break;
    end;
   until (l=1)or(i=j);
if i=j then write(l);
  writeln
end.

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

NOIP2014模拟8.15

【NOIP2014模拟8.15】城市街区 (Standard IO) Time Limits: 1000 ms  Memory Limits: 131072 KB      Description...
  • cyc66
  • cyc66
  • 2014年08月16日 14:43
  • 543

数据结构与算法(1)——分解质因数及各种方法求最大公约数

1.分解质因数 2.质因数分解法、辗转相除法求两个数的最大公约数 3.质因数分解法、辗转相除法求n个数的最大公约数 完整的Java代码如下:...

分解质因数问题

题目:将一个正整数分解质因数。例如:输入90,打印出90=2*3*3*5。   程序分析:对n进行分解质因数,应先找到一个最小的质数k,然后按下述步骤完成:   (1)如果这个质数恰等于n...

Java中循环问题:for,while,do-while 各种练习(打印上三角、下三角、输出100以内的素数、水仙花、最大公约、最小公倍数、分解质因数、兔子问题)

package jereh1; import java.util.Scanner; public class Class2XunHuan { public static void main(St...

VB 分解质因数

  • 2010年06月07日 13:34
  • 36KB
  • 下载

质因数:arcane number1

Arcane Numbers 1 Time Limit: 2000/1000 MS (Java/Others)    Memory Limit: 32768/32768 K (Java/Others...
  • lethic
  • lethic
  • 2012年08月05日 14:04
  • 310

分解质因数

  • 2012年11月03日 15:55
  • 546B
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:问题 A: 分解质因数(Primefac) [1*]
举报原因:
原因补充:

(最多只允许输入30个字)