1.var
2. n,m:integer;
3.begin
4. readln(m,n);
5. if n=0 then
6. exit;
7. writeln(trunc(m/n) mod 10);
8. writeln(trunc(frac(m/n)*10));
9.end.
1.var
2. n,m:integer;
3.begin
4. readln(m,n);
5. if n=0 then
6. exit;
7. writeln(trunc(m/n) mod 10);
8. writeln(trunc(frac(m/n)*10));
9.end.