Иван, вынужден Вас разочаровать > > $ perl -MData::Dumper -e 'print Dumper( int((8.5-1.65)*100) == 685 )' > perl -MData::Dumper -e 'print Dumper( int((8.37-0.37)*100) == 800 )'