来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/07/19 13:26:40
pascal编程求出实数小数部分位数,
编写一个函数,求出实数的小书部分位数,例如,实数3.14有2为小数,68.6689有4位小数.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
i:integer;
a:string;
begin
readln(a);
for i:= length(a) downto 1 do
if a[i] = '.' then
begin
write(length(a)-i);
break;
end;
readln;
end.
作业帮