0
已采纳
这样计算原来的数有几位小数:
while a-trunc(a)<>0 do
begin
a:=a*10;
c:=c*10;
inc(k);
end;
原样输出时输出 a/c:0:k 就行了
保留两位小数时输出,占5个位置时输出 a/c:5:2 就行了
0
0
0
0