> разочаровать > perl -MData::Dumper -e 'print Dumper( int((8.37-0.37)*100) == 800 )' Стандартное решение: perl -MData::Dumper -e 'print Dumper( int((8.37-0.37 )*100 + 0.5) == 800)' -- Andrew Shitov ______________________________________________________________________ andy на shitov.ru | http://shitov.ru