Program HelloWorld(output); var b: integer; function h(s: real): real; var i: integer; begin i := 0; h := 1; while i < 10 do begin if frac(s) > 0 then begin s := s * 10; i := i + 1; h *= 0.1; end else break; end; end; {function ex(a: integer): integer; var b: integer; begin read(b); ex := a + b; end;} begin writeln(h(5.034):0:5); writeln(num_of_frac(3.3333):2); {write(ex(2));} end.