1.txt

来自「本程序用C语言编写」· 文本 代码 · 共 24 行

PROGRAM primefac(input,output);
VAR n,p:integer;
BEGIN
  Write(‘Please input n=’);
  readln(n);
  IF n<=1
    THEN writeln(‘Parameter is less than 2!’);
    else BEGIN
            write(n,’=’);
            p:=2;
            REPEAT
              IF n MOD p=0
                 THEN BEGIN
                         write(p);
                         n:=n DIV p;
                         IF n>1
                           THEN write(‘*’)
                           ELSE writeln
                      END
                 ELSE p:=p+1
            UNTIL n=1
          END
END.