Question

Pascal编程【基础】高精度整数除法

时间限制 : 1 Sec内存限制 : 16 Mb
题目描述
a/b。 a，b为integer范围内的整数。 求a/b的前n位小数商。

输入
a b n

输出
一行数字

样例输入
97 61 50
样例输出
1.59016393442622950819672131147540983606557377049180

Answer 1

var a,b,n,i:longint;
begin
  readln(a,b,n);
  write(a div b,'.');
  a:=a mod b;
  for i:=1 to n do
  begin
    a:=a*10;
    write(a div b);
    a:=a mod b;
  end;
  writeln;
end.