program zad26;
var a,b,k,i:integer;
c,des: Real;
znak:boolean;
writeln('Vvedite a,b');
readln(a,b);
writeln('vvedite tochnost');
readln(k);
writeln;
write('otvet: ');
if(a*b<0) then znak:=true;
a:=abs(a);
b:=abs(b);
if (a>=b) then c:=a div b else c:=0;
des:=0.1;
a:=a mod b;
for i:=1 to k do
begin
a:=a*10;
c:=c+(a div b)*des;
des:=des/10;
a:=a mod b;
end;
if znak then c:=c*(-1);
writeln(c:20:k);
readln;
end.