Turbo Pascal中遇到的关于类型不吻合的疑问~请大虾赐教!

holmes98 2003-08-18 03:57:37
一道题:
输入一个正整数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.

...全文
30 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
holmes98 2003-08-18
  • 打赏
  • 举报
回复
谢谢问题已解决,不过有没有人有完整代码?做这题给点提示好吗?谢谢,!
DWGZ 2003-08-18
  • 打赏
  • 举报
回复
n := Trunc(n/x)
DWGZ 2003-08-18
  • 打赏
  • 举报
回复
n := Trunc(n/x)

16,748

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧