Turbo Pascal中遇到的关于类型不吻合的疑问~请大虾赐教!
一道题:
输入一个正整数n,将n分解成质因数幂的乘积形式。
我的解答:
Program PrimeMultiply;
Var n,x:integer;
Begin
write('n=');readln(n);
for x:=2 to n do
begin
x:=2;
while n mod x=0 do
begin
writeln(x);
n:=n/x;{运行到此出现Type Mismatch,不知道何原因,帮忙解决}
end;
if (n mod x<>0) and (x<=Trunc(Sqrt(n))) then
x:=x+1
else writeln(x);
end;
readln;
End.