59 * 16 = 944 бита!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Var n,s,a,m:longint;
begin
readln(n,s);
m:=10;
if s mod n=0 then a:=s else a:=s*10;
while a mod n<>0 do
if a mod m=(m-1)
then begin m:=m*10; a:=s*m; end
else a:=a+1;
writeln(a);
end.
Пример:
123 16
<span>16113</span>
1) ( в 2сс)
0.0000010101 =0.10101*2^(-5)
2) А = 0.10111*2^(-11) =0.0000000000010111 (в 2сс)
В = 0.11101*2^1= 1.1101 (в 2сс)
А+В = 1.110100000001011=0.1110100000001011*2^(1)